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IT. INTRODUCTION 


All war games are based on some form of a model, and so 
it is natural that a research effort concerning war gaming 
be directed toward the development of a model suitable for 
that purpose. However, this thesis does not develop a a 
model, basically for two reasons. The first is the fact that 
the authors' interests are in computer applications. The 
second is the great wealth of models and modelling technology 
available today. James F. Dunnigan, the president of Sim- 
Ulations Publications Inc. (SPI), writes, "There are two 
game-design rules that control all others...Keep it simple... 
(and)...plagiarize." When he says "plagiarize" he means 
whenever possible use existing technology for there is no 
reason to recreate what has been done before. The authors 
took Mr. Dunnigan at his word, and selected an SPI board 
game entitled "UP SCOPE!" as the war game on which to base 
their work. 

This research effort has two major objectives. The 
first is to develop an "in house" war gaming capability 
for the Command, Control and Communications (C3) Laboratory 
located at the Naval Postgraduate School. This capability is 
necessary because it is not sufficient for military students 
to know what types of games exist, the objectives they are 


expected to accomplish and how to play them. The students 





Must also be given the opportunity to gain firsthand 
knowledge about the design, development and programming of 
war games. The second objective is to examine the problems 
associated with the conversion of a tactical board game to a 
“user-friendly” computer-assisted war game. The thesis 
develops a general outline to follow when a conversion is 
planned, and discusses the problems encountered during the 
conversion of "UP SCOPE!.” 

Chapter II, Description and Play of Up Scope, provides 
the reader with the background, rules and procedures 
necessary to play the game. Chapter III is a step by step 
"player's guide" to the computer version of "Up Scope!." It 
leads the player through the game by including and discussing 
key portions of a practice game. The entire practice game 
is included as an Appendix. Chapter IV is titled ‘Program 
Documentation,” and includes detailed documentation of the 
FORTRAN statements. The program itself uses standard 
FORTRAN IV, and is presently operating on an IBM 360 
computer. The only change required to transport the program 
is the inclusion of a random number generator subroutine 
called RANDOM. The IBM 360 located at the Naval Postgraduate 
school has such a subroutine in its library. It is hoped 
that Chapter IV will make it easy for the program to become 
the basis for future research and expansion by other students 
having an interest in "grass roots” war gaming. Chapter V 


presents the outline developed for conversion of a board 





game to a computer-assisted game, and it discusses the 
problems encountered and changes made to "UP SCOPE” during 
the conversion. 

It is believed that the outline and discussion of 
problems encountered included in the thesis and actual play 
of the computerized version of "UP SCOPE!" will greatly 
increase the military students awareness of the gaming, and 
give him a better understanding of what designing, developing 


and programming a war game entails. 





II. DESCRIPTION AND PLAY OF UP SCOPE 


A. INTRODUCTION 

Up Scope is essentially a computer aided, interactive, 
tactical simulation of submarine and anti-submarine warfare 
in the 1980's. It has been adapted from the tactical sim- 
ulation board game "UP SCOPE!" which was designed, produced 
and marketed by Simulations Publications Inc., New York, N.Y. 
See oslOPEt” as used with SPI’s permission. 

This war game furnishes fairly complete, albeit 
unclassified, information on every significant submarine and 
anti-submarine platform and weapon system employed by both the 
NATO powers and the Soviet Union today. Although this game is 
essentially designed for two players (Red and Blue), any 
reasonable number can play. AS in most war games, the 
additional players would be relegated to subordinate commander 
moes. Itt Seal be noted that when the game is played with 
two players, the game is rigid-ruled and self-umpiring. 

Since this thesis is unclassified, the actual performance 
parameters for weapon systems, sensors, aircraft, ship and 
Submarine characteristics were derived from unclassified 
Sources and adapted in conjunction with parameters currently 


implemented in the board game "UP SCOPE!" 
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B. GENERAL COURSE OF PLAY 

Up Scope is basically designed for two players, one of 
whom normally commands the submarine force while the 
opposition commands the anti-submarine force. After deciding 
upon the particular scenario to be played, each player 
selects his force composition. Appendices B, C and D contain 
the relevant Ship, Weapon and Aircraft Data Summaries. The 
following table illustrates the number of surface ship and 
Submarine classes available for selection from each repre- 


Sented country. 


Number of Number of 
Country surface Ship Classes Submarine Classes 
Australia 5 1 
Canada 5 1 
France 16 5 
Great Britain eZ 5 
Italy det: 3 
Soviet Union Hag 8 
United States 28 ch 
West Germany 4 2 


Up Scope is played in a series of Successive game turns, 
each of which consists of a command phase, a combat phase, 
a movement phase, a search phase, a victory determination 
phase and a display phase. During the command phase each 


player privately determines combat, movement (speed and 


Heal 





destination) and search missions for all units under his 
eenL.rol . 

As this is essentially an anti-submarine warfare game, 
the only sensors employed are active and passive sonar suits. 
Radar, ESM and visual detection methods are not pursued. 

At the end of the command phase all commands have been 
entered on the keyboard. The computer then executes combat, 
movement and search missions for every platform involved. 
Although the program executes combat, movement and search 
missions sequentially, they are considered and treated as 


though they occur simultaneously. 


C. GAME EQUIPMENT 

The game board is a numbered hexagonal grid patter 
superimposed over open ocean. Each "hex" represents a one 
nautical mile area of ocean. Thus, traversing four hexes is 
the equivalent of moving four nautical miles. Each hex 
address is composed of a four-digit number (i.e. XXYY); the 
XX represents the column coordinate and the YY represents 
the row coordinate. Figure i illustrates the four corners 
and middle section of the game board. 

During the play of Up Scope, reference is made to 
"adjacent" hexes. Any hex that has a common border with 
another hex is an adjacent hex. Therefore, each hex except 
those located on the boundaries has six adjacent hexes. 
erring to Figure 1, the hexes containing a $ are adjacent 


meenex 1622, 


iL 





me 


Game Board 


Pea eme. 
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BD. DEFINITION OF TERMS 
1. Platform Class 
The Ship Data Summary, Appendix B, categorizes all 
surface ships and submarines by class. The characteristics 
of any particular platform are located in Appendix B accord- 
ing to the platform's class. For instance, the Charlie and 
Papa class Soviet submarines share the same characteristics, 
and are located in the Ship Data Summary under the Soviet 
Submarine class entitled "Charlie". 
2. speed Command 
During the command phase, each platform is assigned a 
Speed command which indicates a rate of speed at which the 
platform is considered to be moving during the current game 
turn. The speed command determines the total number of hexes 
the platform must move during the movement phase of the 
game turn. 
3. search Command 
During the command phase, each eligible platform may 
be asSigned a search command indicating whether the active 
sonar, paSSive sonar or both active and passive sonar suits 
are to be employed during the search phase of the game turn. 
4, Search and Detection 
Detections by a platform's active sonar, passive 
sonar or by both will be recorded for an aircraft or surface 
Ship only against submarine targets, and for a submarine 


against both surface ships and submarines. Detections 
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presented will include friendly as well as adversary targets. 
It is up to the player to discriminate which target is which. 
In general a platform may only attack a platform it detected 
during the prior game turn. 
5. Detection Value 
When executing search commands a searching platform 
is assigned a detection value which indicates the basic 
ability of its detection equipment to detect and localize 
previously undetected targets. 
6. Evasion Value 
When a platform executes a search command all 
potential targets are assigned an evasion value. This value 
indicates the platform's basic ability to avoid detection 
based on both the platform's inherent characteristics and/or 
range, ocean and water conditions which aid the platform's 


ability to evade detection. 


E. GAME INITIATION 

Appendix A lists several scenarios, each of which 
constitutes a distinct game. Players may select any of those 
scenarios or develop their own scenarios as they desire. 
Initializing the game requires each player to select a 
password which enables the player to enter commands and 
retrieve relevant information regarding combat operations, 
damage reports and search results of platforms under his 
command. The player then selects his force composition 


(i.e. three surface ships and two submarines), gives each 
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platform a name, identifies the platform class (Spruance, 
Nimitz, Krivak, Charlie, etc.) and designates the initial 
position on the game board. After entering this initial 
information the game is ready to begin. The game consists of 
game turns, each of which represents six minutes of elapsed 
time. Game turns are executed independently, the only ex- 
ception is the fact that a scheduled combat mission can 
succeed only if that particular platform detected the target 
on the previous game turn. Game turns are then executed until 
the game ends, either by preset victory conditions being met, 
the preselected number of game turns having been executed or 
mutual decision by both Red and Blue players. Figure 2 
displays a block diagram of the phases of Up Scope. 

The availability of aircraft is restricted to ship-based 
aircraft carried aboard the combatants involved in the scenario. 
Both fixed wing aircraft and helicopters are available. MThe 
Ship Data Summary, Appendix B, lists type and number of air- 
craft carried aboard the various classes of surface ships. 

The Aircraft Data Summary, Appendix D, lists the detection 
values, maximum speed, weapon system mix and resupply ratings 
for each type aircraft. Some aircraft may carry either of 

two different weapon systems. The player must decide before 
launching the aircraft which weapon system he desires to employ. 


An aircraft weapon load cannot be changed after launch. 


F. COMMAND PHASE 
After reviewing the previous game turn's displays of 


combat action results, damage suffered by friendly forces, 
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Command Input Phase 
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Movement Phase 
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Status Display 


Figure 2. Up Scope Block Diagram 


ae 





current platform locations and detections resulting from 
the previous game turn searches, the player privately 
determines his current game turn strategy. 

1. Combat Operations 

Combat operations are subdivided into two categories: 
Aircraft combat operations and surface ship/submarine combat 
operations. 

Aircraft can only release oneweapon system per game 
turn and only at a submarine target. The player selects 
either weapon system number one or weapon system number two. 
The weapon systems carried are defined in the Aircraft Data 
Summary, Appendix D. The weapon system listed first is 
weapon system number one and the system listed second is 
weapon system number two. Therefore, to engage a target, the 
player enters weapon system number one or two and the target's 
hex address location. Dercrait cannot be: attacked during 
any scenario under the present rules of Up Scope. 

Surface ships and submarines may engage a single 
target with one or more of their weapon systems simultan- 
eously; therefore, the player may enter more than one combat 
mission for each platform in the manner described above. 

Due to the nature of the game, there is no interference 
between weapons ina multiple weapon system attack. The weapon 
Systems carried by each platform are Listed in the Ship Data 
Summary, Appendix B. Weapon system numbering is in the 


order they are listed in Appendix B. 
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2. Movement 

The player must keep in mind that the number of hexes 
a platform traverses during each game must be consistent with 
the current maximum speed allowed and that the speed must 
equal the distance to the destination hex. The player 
enters projected speed and destination hex address each game 
turn. 

AG the Start of a Scenario, all aircraft are 
considered aboard their respective surface ships and may not 
move independently until they are launched. During each 
command phase, a player may launch any Single aircraft from 
each capable surface ship under his control. After launch 
the aircraft move according to the established movement rules. 
Aircraft may not be launched once it has been determined the 
parent ship is sunk. Also, if a parent ship departs the 
board boundary, the aircraft must immediately depart the 
board boundary. 

B.  cearch 

The player may not assign a search mission to any 
mimeermatt that is either not flying (still based on the 
parent ship) or is transiting to a new destination hex. To 
execute a Search mission the aircraft must have a speed of 
zero for that game turn, which signifies that a fixed wing 
aircraft is loitering in the area or that a helicopter is either 
hovering or loitering in the area. Additionally, aircraft 
may not be assigned both active and passive Search missions 


Simultaneously. 
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For surface ships and submarines, only platforms 
with a one in the column labeled "SS" in the Ship Data Summary, 
Appendix B, may execute both active and passive search 
missions Simultaneously. The player, when asked in the 
game turn input phase, enters a zero for no search mission, 

a one for an active search mission, a two for a passive 
Search mission and a three for both active and passive search 
missions simultaneously. If a platform is not assigned a 
detection value under active and/or passive detection in the 
Ship Data Summary, it may not be asSigned a Search mission 
empJoying that detection capability. For example, the 

Nimitz class aircraft carrier possesses neither type of 
detection value and thus cannot execute a search command. 
Aircraft may not be assigned a Search mission if the aircraft 
is assigned a move command other than "none.” 

The assignment of search commands is at the player's 
discretion. A platform is never required to execute a 


search mission. 


G. COMBAT PHASE 
After completion of the command phase and players have 
input their combat, movement and search commands, the 
program shifts into execution. The first phase is the com- 
bat phase which executes all combat orders. 
ioc oroduct1on 
Contemporary weapon systems include a large variety 


of ship-to-ship missiles, sophisticated wire-guided and/or 
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homing torpedoes, missile launched depth bombs/torpedoes and 
depth charges. The Ship Data Summary, Appendix B, along with 
the Weapon Data Summary, Appendix C, indicate all the follow- 
ing information. 
a. Weapon type 
The various weapon types with which each platform 
class 1S equipped. Surface ships and submarines carry a 
maximum of three different weapon systems. 
b. Accuracy Rating 
Each weapon type has an accuracy rating ranging 
from six (best) to three (worst). 
c. Maximum Range 
Kach weapon system has a maximum effective range 
expressed in terms of number of hexes it will traverse. 
d. Weapon Resupply 
The number of weapon delivery units available 
for each weapon system, ranging from one to six. A weapon 
delivery unit is composed of the number of individual weapons 
normally expended in a Single attack utilizing that weapon 
system. For example, if a Charlie class submarine would 
normally expend all eight SSN-7 missiles in an attack, then 
the number of weapon delivery units would be one, and it 
would be composed of eight SSN-7 missiles. 
e. Defense Rating 
The Defense rating of each surface ship/submarine 


@beasc, range from three (best) to zero (worst). It isa 
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measure of how capable the platform is in defending against 
attacks and/or evading the attacks. 
ier erat | 
The number and type of aircraft each surface ship 
class carries and is capable of employing in an anti-submarine 
mole, 
2. Execution of Combat Missions 
Combat missions are executed during the game turn 
meceraing to the following restrictions. 
ae Resolution 
Each combat mission is resolved separately 
against the target platform using the procedure given below. 
beet Lackineerlatiormn 
Each weapon system type may be employed only once 
during a game turn. Different weapon systems aboard an 
attacking surface ship/submarine may only be employed against 
the same target. (i.e., a platform may not attack two or 
more targets during the same game turn). 
ec. larget 
An attacking platform must have detected the 
target on the previous game turn. A weapon may be employed 
against a undetected target; however, a hit cannot be 
obtained. 
d. Damage 
All combat is considered to be simultaneous. 
All damage inflicted occurs at the end of the game turn and 


does not affect current game turn commands. 
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e. Resupply 
Once all reloads of a weapon system have been 
expended, the weapon system cannot be employed. There is no 
external resupply of any weapon system during a game. 
3. Resolution of Combat Actions 

Damage inflicted due to combat resolution takes 
effect at the end of the game turn; thus, a platform that 
has been sunk or hit is able to execute and resolve all 
asSigned combat missions. For each combat mission the 
program checks to insure the target is within weapon range, 
cross references the accuracy rating of the employed weapon 
with the defense rating of the target platform, draws a 
random number to simulate rolling a die and locates the 
resulting random number (an integer from one to six) under 
“the proper resolution column on the Combat Results Table, 
fmienre 3. Ti the indicated result is not an "H" (hit), then 
the attack failed. If the result is an "H", then the attack 
was successful and the durability value of the target is 
reduced by one. 

4, Weapon System Resupply 

Each weapon system carried by a platform has a weapon 
system resupply rating which indicates the comparative supply 
and reload facilities available for that weapon system on 
that platform. Each time a given platform executes a combat 
mission, the corresponding resupply rating for that weapon 


system is decremented by one. Once a resupply rating is 
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Weapon 
Accuracy 
Rating 


Random 
Number 
Drawn 
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Defense Rating of 
Target Platform 


hone oe 


Pireure 3. 


1 2 3 
O 1 2 3 

O 1 eB 
H = = = 
H H : 
H H H = 
H H H H 
H H H H 


Combat Results Table 
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reduced to zero that platform may not be assigned a combat 
mission employing that weapon system. 

5. Platform Damage 

The durability value assigned to each surface 

ship/submarine indicates the number of hits required to 
Sink it. <A submarine which has a durability value of two 
would require two separate hits to sink it. The initial 
durability value for each type of platform is indicated 


below. 


Type of Surface fiiaeGala 
ship/submarine Durability Value 
Hiwematlt carrier 3 
Cruiser, Submarine z 
Destroyer, Frigate ft 


a. Damage Assessment 
For each durability point of damage suffered, 
the platform's maximum speed, weapon system resupply ratings, 
active detection value and passive detection values are 
reduced by one. 
b. Repair 
Damage may never be repaired during the scenario. 
Ge oviiale | 
When a platform's durability point value is 


reduced to zero, the platform is considered sunk. 
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6. Disturbed Water 
Whenever a combat mission results in a weapon 

detonation, disturbed water is assumed to occupy the hex in 
which the target is residing and the six adjacent hexes as 
well. Detonations will not occur when a weapon system misses 
the target and the weapon is a torpedo; however, depth charges 
and depth bombs will detonate regardless of a hit or miss. 

The effects of disturbed water are discussed later in this 


chapter. 


H. MOVEMENT PHASE 

After completion of the combat phase during which all the 
combat orders are executed, the program shifts to the movement 
phase and all movement commands are executed. 

The speed command given a platform during the command 
phase determines the total number of hexes it must traverse 
during the current game turn. It also must match the hex 
distance between the current location and future location. 
Any platform may be assigned a speed of zero for any game 
fen. Aircrartt must have a speed of zero in order to conduct 
a search mission. Also surface ships and submarines, in 
general, have better detection capabilities at lower speeds 
than at higher speeds. 

The maximum speed is limited to the maximum for that 
class of platform as indicated in the Ship Data Summary, 


Appendix B. Also, the maximum speed will be permanently 
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reduced as a result of damage sustained in combat 


operations. 


I. SEARCH AND DETECTION PHASE 
After completion of the movement phase, the program 
shifts to the search and detection phase, during which the 
search commands previously entered are executed for all 
platforms. 
Mo abrROoducGlon 
All platforms (surface en ieer submarines or aircraft) 
in this game employ only detection capabilities which simulate 
the use of both active and passive advanced sonar equipment. 
The detection and evaSion capabilities for all platforms 
are delineated in the Ship and Aircraft Data Summaries in 
appendices B and D respectively. This includes the 
following: 
a. Active Detection Value 
The platform's active detection value (ADV) 
Simulates the capability of its active sonar system(s). The 
ADV ranges from five (best) to one (worst). 
b. Passive Detection Value 
The platform's passive detection value (PDV) 
Simulates the capability of its passive sonar system(s). The 
PDV ranges from five (best) to three (worst). 
c. Evasion Value 
surface ship's and submarine's evasion values 


(EV) which simulate the platforms radiated noise level. The 
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higher the EV value, the quieter the platform is considered to 
be and therefore the more difficult it is to locate using 
a passive search during the game turn. The EV rangesfrom 
mive (best) to one (worst). 

d. Simultaneous Active and Passive Search Missions 

fewest nomi nas) 42 One In the “ss” column for 

its class in the Ship Data Summary, Appendix B, then the 
platform is capable of executing both active and passive 
search missions Simultaneously during the game turn. 

e. Speed Degradation 

Normally, sonar system performance is degraded 
the faster the surface ship or submarine is traveling, due 
to increased water flow noise and the own ship's radiated 
noise level. Some more advanced sonar systems have solved 
this degradation to some degree. In Up Scope if a aks Ge aam 
has a one in the "SD" column for its class in the Ship Data 
Summary, Appendix B, this indicates that when a platform 
executes a passive search mission there is neither degrad- 
ation in capability nor reduction due to platform speed in 
the passive detection value. 
2. vearch Mission Resolution 

nearch missions assigned during the command phase are 
resolved during this search and detection phase. The program 
computes the appropriate active or passive detection value of 
the searching platform, taine Imo accounts all the appropriate 


modifiers, then calculates evasion values for all other 
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platforms except aircraft. The program then compares the 
evasion value of each platform to the final adjusted detect- 
tion value of the searching platform. If the detection 
value is greater than or equal to the evasion value, the 
target platform is considered detected by the searcher. If 
the evaSion value is greater than the detection value then 
no detection has been made. 

a. Active/Passive Detection-Value Computation 

When a platform executes a search mission, its 
appropriate detection value (ADV or PDV) is cumulatively 
modified by the following criteria: 

(1) The platform's ADV/PDV is reduced by one if 
its speed iS one or two. 

(2) The platform's ADV/PDV is reduced by two if 
its speed is three or four. 

(3) The platform's ADV/PDV is reduced by two if 
the water condition has been set as "erratic," discussed 
later in this chapter. 

(4) The platform's ADV/PDV is reduced by three 
if the platform occupies a disturbed water zone, discussed 
later in this chapter. 

(5) The platform's ADV/PDV is reduced by one for 
each durability point of damage sustained by the platform. 

(6) As already mentioned, the platform's ADV/PDV 
1s not reduced if the platform's speed is zero, or if column 
"S95" for the class in the Ship Data Summary, Appendix B, has 
aone on it. Otherwise, the ADV/PDV is reduced as stated 


above. 
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(7) A platform's ADV/PDV cannot be reduced below 

Zero. 
b. Active Evasion Value (AEV) Computation 

For every active search mission being executed, 
the program computes an AEV for every potential target in the 
following fashion (This computation does not make use of the 
evasion value listed in the Ship Data Summary, Appendix B.): 

(1) The basic AEV is determined by computing the 
hex distance between the two platforms, dividing the result 
by three and rounding up. The following Table illustrates 


the computation. 


ARV Hex Distance 
i 0 - 3 
2 4 - 6 
3 Po 3 


(2) The basic AEV is increased by three if the 

platform occupies a disturbed water zone. 
c. Passive Evasion Value (PEV) Computation 

For every passive search mission being conducted, 
the program computes a PEV for every potential target in the 
following fashion: 

(1) The platform's basic PEV is determined by 
computing the hex distance between the two platitormms, dividing 
the result by ten and then rounding up. The following 


illustrates the computation: 
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PEV hex distance 


1 QO - 10 
Z 121 - 20 
3 Cine? 30 


(2) The platform's PEV is increased by the EV 
marcacved for its class in the Ship Data Summary, Appendix B. 

(3) The platform's PEV is increased by three if 
it occupies a disturbed water zone. 

(4) The platform's PEV is decreased by two if 
the platform is assigned an active search mission for the 
current game turn. 

(5) The platform's PEV is decreased by three if 
the platform executed a combat mission during the game turn. 

cmlinceplacfomes FAV ts automavrcally Get at 
Six if the platform remained stationary, was not asSigned an 
active search mission and did not execute a combat mission 
during the current game turn. 

3. Water Conditions 

During any. Scenario, the water conditions are prescribed 
by the scenario rules as either "Normal" or "Erratic" and this 
mreormacion is set during the initializing and force loading 
phase. It should be recognized that if the water conditions 
are erratic during a scenario, the effectiveness of both 
active and passive sonar suits is degraded. 

Disturbed water zones are created by the detonation 


of weapons. The zone consists of the hex in which the weapon 


be 





detonated and the six adjacent hexes. The disturbed water 
zones exist only during the current game turn. If occupied 
by a searching platform the zone decreases detection values 
and if occupied by potential targets, the evasion value is 


increased as just described. 


J. VICTORY DETERMINATION PHASE 

After completing the search phase, the program enters 
the victory determination phase. If all of either player's 
ship forces have been sunk, the program exists after dis- 
playing the final results. If either the predetermined 
number of ships designated during the initializing and force 
loading phase have been sunk, or the designated number of 
game turns have been completed, the program attempts to end 
the game. It queries the players to see if they desire to 


continue or, in fact, desire to exit the game. 


femeeolATUS DISPLAY PHASE 

During the status display phase the player reenters the 
game by requesting the various status displays available 
regarding damage inflicted, damage suffered, search results 
and individual platform status. Then the player enters the 


command input phase. 
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ITT. USER'S MANUAL 


A. INTRODUCTION 

The computerized version of Up Scope is an easy game to 
play even without a complete understanding of the rules 
discussed in Chapter II. All the difficult chores, such as 
computation of detections and damage, and all poomeenene 
tasks are performed by the computer. Through the interactive 
nature of the game, a player is led through the various 
Stages, giving all the information the player needs to know 
to make decisions. However, a general understanding of the 
rules and game procedures is required to use the board and 
Appendices. An understanding of the game also allows the 
players to play more effectively. 

This chapter includes a section on pregame requirements 
which deals with the development of scenarios. It also 
includes several sections containing the instructions needed 
to use the computer program. The instructions are based on 
excerpts from the practice game in Appendix E. Instructions 
for obtaining a copy of the program deck are contained in 


Appendix G. 


B. PREGAME REQUIREMENTS 
The pregame requirements for Up Scope can be as simple 


or aS complicated as the players desire. However, as a 
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minimum, the following steps in developing a scenario should 
be taken to ensure a successful game. 
1. Objective 

Every game played should have an objective. This 
could mean a detailed write-up, with a general scenario to 
set the world's political and economic situation anda 
specific scenario setting the tactical situation. It could 
also be a Simple agreement between the players to "search 
and destroy." Whatever the purpose, both players should 
agree to the basic objective of the game before they start. 

The objective should also include victory 
determination criteria. This is extremely important because 
it forces the players to concentrate on setting and achieving 
the objective. Again the criteria could be simple, such as 
Bmeent Until one force is totally destroyed", or complex. 
A complex criteria might be a force level percentage after a 
specified number of game turns. Appendix A presents several 
scenarios modified from examples included in the SPI version 
feu r SCOPE!"”. 

2. Game Environment 

Another important aspect of the scenario is the 
environment in which the game is to be played. In the 
computerized version of Up Scope, this includes the size of 


the ocean area and the water conditions. 
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a. Game Board 
In the board game, SPI supplies the players with 
two 33 by 45 hex boards. The boards can be placed side by 
side or lengthwise to increase the size of the playing area. 
The available size in the computer game is physically un- 
restricted as long as the number of hexes in the X or Y 
direction does not exceed 99. When determining the size, 
the objective of the game and the speed of the ships must be 
considered. For example, it would take the fastest ship 11 
turns just to cross the 33 hex width of the SPI board. Unless 
the players are willing to spend a great deal of time 
maneuvering or the scenario dictates otherwise, the size of 
the area should be held to a minimum. 
Up Scope does not restrict the players from 
moving their forces outside the agreed upon playing area. A 
"sentlemen's agreement" between the two players must exist 
to forestall "out of bounds movement.” 
b. Water Condition 
The second environmental factor in Up Scope is 
the water condition which was discussed in chapter II.I1.3. 
imemwater condition can be "normal” or "erratic." 
3. Game Length 
The game can be terminated by any of three methods. 
Two of them, game turns and number of ships destroyed, are 
scenario dependent. The third is total destruction of a 


player's ship forces. 
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ae Game Turns 
The number of game turns to be played is 
mutually agreed on by the players. It can be used in two 
ways. The first is actually determined by the scenario, 
which might involve the Blue forces defending a certain area 
for a given number of turns. The second use is to put an 
upper limit on the length of the game. In either case it is 
preferable to use a relatively small number because the 
players are given the option of continuing the game beyond 
the preselected number of game turns. 
b. Disengagement 
Both players are given the opportunity to 
prematurely end the game by disengaging when a certain 
number of their ships have been destroyed. Again, a 
relatively small number should be chosen because the player 
will be given the option of continuing when his disengagement 
criterion has been reached. 
Cueeloual Destruction 
Total destruction of a player's forces is the 
only means of terminating the game without the player's 
consent. When this occurs, the program will print the final 
results, and give the players an opportunity to start a new 
game. 
4, Forces 
Perhaps the major pregame task, other than 


determination of the objective, is to decide the forces to 
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be employed by the Blue and Red players. The number and 
structure of the forces should be consistent with the 
objective. Normally the forces should be balanced between 
the players so that the outcome is determined by tactics 
and not by Superior numbers. 

Tiepebaca ouMMary, 2ppendix B, contains all the ship 
classes in the Up Scope arsenal and all the required infor- 
mation about each class. The Appendix must be consulted when 
determining the number of ships because it contains the 
number of aircraft carried by each class. This is important 
because the current version of the game can only Support 
100 platforms, including aircraft, and the game loads air- 
emit automatically for each ship class. Prior to 
accessing the game, the players should ensure that their 
combined number of aircraft, surface ships and submarines 


does not exceed i100. 


C. LOADING GAME PARAMETERS AND PLATFORMS 

The loading portion of Up Scope consists of several 
sections; each designed to ease the entry of game inputs. 

1. Menu Selection 

The first display which the players see when Up 

"cope is accessed is: 

mM SCUTION BEGINS... 

THE FOLLOWING OPTIONS ARE AVAILABLE TO YOU: 

1. ZERO ANY PREVIOUSLY ESTABLISHED DATA BASE. 

Zee THE GAME. 
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3. INITIALIZE GAME PARAMETERS AND COMMENCE PLAY. 


ENTER AN OPTION. 
>3 


Option 1 reinitializes any user inputs from previous 
games, which allows the players to start a new game without 
eertping and restarting the program. Options 2 and 3 are 
self-explanatory. If Option 1 is selected, the players will 
automatically be returned to menu selection at its 
completion. 

2. Entry of Game Parameters 
a. Basic Parameters 

Once Option 3 has been selected the program will 
begin to ask for the basic game parameters. First, the 
following warning concerning the total number of platforms 
is printed with a request for the number of game turns. 
YOU ARE NOW GOING TO ENTER THE BASIC GAME PARAMETERS. 
ONE WORD OF CAUTION. THE PRESENT GAME CAN ONLY HANDLE A 
TOTAL OF 100 WEAPON SYSTEMS. INCLUDED IN THESE SYSTEMS 
ARE SURFACE SHIPS, SUBMARINES AND AIRCRAFT. THE NUMBER OF 
ATRCRAFT ARE DETERMINED BY THE SHIP CLASS AS REFLECTED IN THE 
DATA BASE, AND WILL BE LOADED AUTOMATICALLY WHEN YOU SELECT 
THE SHIP CLASS. PRIOR TO BEGINNING THE LOADING PROCEDURE 


YOU SHOULD ENSURE THAT THE TOTAL NUMBER OF EACH PLAYERS 
WEAPON SYSTEMS DOES NOT EXCEED DO. 


ENTER THE NUMBER OF GAME TURNS YOU WANT TO PLAY. 

Baie 

After game turns have been entered, the program will print 
the following request for the water condition. 

= THE WATER CONDITION (O-NORMAL, 1-ERRATIC). 
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b. Blue/Red Game Parameters 
The following lines begin the entry of the Blue 

player's game parameters by requesting a Blue password. 
This player has selected "BLUPAS”. 
THE FOLLOWING INPUTS APPLY ONLY TO THE BLUE PLAYER 
fimo tkot Is THE BLUE PLAYERS PASSWORD WHICH IS 
A MAXIMUM OF 6 CHARACTERS. THE PASSWORD IS IMPORTANT BECAUSE 
IT IS REQUIRED PRIOR TO THE INPUT OF COMBAT, MOVE AND SEARCH 


COMMANDS. IF YOU FORGET THE PASSWORD, YOU WILL HAVE TO RETURN 
TO MENU SELECTION, AND RESTART THE GAME. 


SELECT AND ENTER YOUR PASSWORD 
» blupas 


YOUR PASSWORD WILL BE -BLUPAS- . IF YOU ARE 
fer TO CONTINUE TYPE Y(ES). TYPE N(O) IF YOU WISH TO 
CHANGE YOUR PASSWORD. 


>Y 

Next the program will ask for the number of Blue 
surface ships and submarines, and the number of ships that must 
be destroyed for disengagement to occur. The format as seen 
below echoes the inputs and gives the player the opportunity 
to change his choices. 


THE NUMBER OF BLUE SURFACE SHIPS. 
2 


THE NUMBER OF BLUE SUBMARINES. 
1 


ENTER THE NUMBER OF BLUE SHIPS THAT MUST 
S DESTROYED FOR PREMATURE GAME ENDING. 
a 


ECHO 
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meee SURFACE SHIPS - 2 
BLUE SUBMARINES - 1 
NUMBER OF BLUE SHIPS DESTROYED TO END GAME - 2 


ye Y(ES) IF THESE VALUES ARE CORRECT, OR N(O) IF 
YOU WANT TO REENTER THEM. 


oy 
If the Blue player does not elect to change his inputs, 
the program will advance to the Red player's game parameters 
which is essentially a repeat of the above. In this 
practice game, the Red player has entered two submarines of 
which the destruction of one will cause disengagement (not 
shown). 
ee) beading Platforms 

Up Scope leads each player through the loading 
procedure one ship at a time. It will first ask for the 
player's password. If the password is entered correctly, 
iieeplayer will input a name (six characters or less) for 
mmewsnip, the ship's class and its initial location. The 
program automatically loads any aircraft carried by a class 
of ship, and asks the player for aircraft names. Inputs for 


the practice game are shown below. 


BLUE SURFACE SHIP NUMBER 1 


ENTER A 6 CHARACTER NAME FOR THE SHIP. 
Piancan 


ENTER THE SHIP CLASS OF TINCAN 
Yspruance 


ENTER THE 4 DIGIT HEX NUMBER OF THE INITIAL 
LOCATION OF TINCAN 


>500 
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In the above example the hex address has been entered as 
"500" instead of "0500". The program treats the hex address 
as a four digit integer and pads leading blanks with zero's. 


In the following example the entry is "0520". 


THE SPRUANCE Gass OF sHIP HAs 1 SEA SPRITE TYPE AIRCRAFT. 


ENTER A 6 CHARACTER NAME FOR AIRCRAFT 1 
sprul 


BLUE SURFACE SHIP NUMBER 2 


ENTER A 6 CHARACTER NAME FOR THE SHIP. 
escort 


meee THE SHIP CLASS OF ESCORT 
» knox 


ENTER THE 4 DIGIT HEX NUMBER OF THE INITIAL 
LOCATION OF ESCORT 
) 0520 


THE KNOX CLASS OF SHIP HAS 1 SEA SPRITE TYPE AIRCRAFT. 


ENTER A 6 CHARACTER NAME FOR AIRCRAFT 1 
>» knoxi 


BLUE SUBMARINE NUMBER 1 


ENTER A 6 DIGIT CHARACTER NAME FOR THE SUBMARINE. 
> lapon 


ENTER THE SUBMARINE CLASS OF LAPON 
> sturgeon 


ENTER THE 4 DIGIT HEX NUMBER OF THE INITIAL 
LOCATION OF LAPON 


‘510 
YOU ARE NOW READY TO LOAD THE RED WEAPON SYSTEMS. 


ENTER THE RED PASSWORD. 
>» redpas 


RED SUBMARINE NUMBER 1 
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ENTER A 6 DIGIT CHARACTER NAME FOR THE SUBMARINE. 
» ivan 


ENTER THE SUBMARINE CLASS OF IVAN 
>» charlie 


ENTER THE 4 DIGIT HEX NUMBER OF THE INITIAL 
LOCATION OF IVAN 


41510 
RED SUBMARINE NUMBER 2 


ENTER A 6 DIGIT CHARACTER NAME FOR THE SUBMARINE. 
» boris 


ENTER THE SUBMARINE CLASS OF BORIS 
» november 


ENTER THE 4 DIGIT HEX NUMBER OF THE INITIAL 
LOCATION OF BORIS 
>> eae, 
D. GAME TURNS 

Once the players have entered the game parameters, they 
are ready to enter the gaming phase. 

ie Displays 

The first step of each game turn is to review the 

results of the previous turn and enter combat, move and 
Search instructions. These tasks are controlled by a group 
of routines labeled STATUS. After the last Red submarine 
has been loaded, the program will ask for the Blue player's 
password and print the following menu of STATUS display 
options: 


BLUE CALL TO STATUS ROUTINES. ENTER THE BLUE PASSWORD. 
> bluepas 
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THE FOLLOWING DISPLAY OPTIONS ARE AVAILABLE TO YOU: 


1. DETECTIONS OF ENEMY PLATFORMS. 

RESULTS OF WEAPONS FIRED. 

DAMAGE TO FRIENDLY PLATFORMS. 

STATUS OF FRIENDLY PLATFORMS AND INPUT OF INSTRUCTIONS. 


s BS&GIN NEAT GAME TURN. 


Mm FF Ww bd 


SELECT AND ENTER THE NUMBER OF A DISPLAY OPTION. 
ENTER A 6 FOR A LIST OF DISPLAY OPTIONS. 
mn 


If the current game turm is the first turn, the first three 
options will contain no information, and should be ignored. 
a. Detection of Enemy Ships 
This option will print the detections of each 


mlattorm of the calling side in the following format: 


SONOR See 
BeceCTING a ess 
PLATFORM Doo DEE e web LOCATION 
TINCAN ACTIVE SUBMARINE Sa 
ESCORT ACTIVE SUBMARINE Sic 
ESCORT ACTIVE SUBMARINE pee 
TINCAN PASSIVE SUBMARINE ieee 
LAPON PASSIVE SURFACE S02 
LAPON PASS IVE SURFACE 720 
LAPON PASSIVE SUBMARINE ia 
LAPON PASSIVE SUBMARINE 1522 


END OF DETECTION ROUTINE. TYPE Y(ES) TO CONTINUE. 


?Y 


b. Results of Weapons Fired 
Option 2 examines each friendly platform, and 


gives the probability of a hit for each weapon fired during 
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the previous turn other than torpedoes. The result for 
torpedoes is either "DETONATION" or "NO DETONATION". The 


following is one example from the practice game: 


SHIP - ESCORT COMBAT LOCATION - 1522 


WEAPON 2 TYPE - MK 46 PROB(HIT)/DETONATION - DETONATION 
SHIP - LAPON COMBAT LOCATION - 1522 

WEAPON 1 TYPE - SUBROC PROB(HIT) /DETONATION - 0.6667 
WEAPON 2 TYPE - MK 48 PROB(HIT)/DETONATION - DETONATION 


END OF WEAPON RESULT DISPLAY. TYPE Y(ES) TO CONTINUE. 
>y 

Some discussion is offered for some of the displays 
listed above in this section. Above, the Lapon, a sturgeon 
class nuclear attack submarine, released a MK 48 torpedo and a 
mmeroc against a target located at 1522. The ‘WEAPON 1 TYPE- 
SUBROC' statement illustrates the fact that some weapons 
detonate regardless of proximity of target, while others 
(notably torpedoes), only detonate when in close proximity, 
or when actually hitting a target. In either case, it is 
classified as a hit. Therefore, when engaging with a "non- 
torpedo" type of weapon, the player is not sure if the target 
was hit or destroyed. All that is displayed is the probability 
of a hit. The player should be aware that torpedo type 
weapons, on the other hand, either hit (detonate) or miss 
(no detonation). 

eo Hamace to Eriendly Platforms 

This option will give the player the 

number of hits each ship has suffered if it is not sunk. 


Otherwise "SUNK" is printed as below: 


AA, 





SHIP STATUS/HITS 


TINCAN 0 
ESCORT SUNK 
LAPON O 


END OF DAMAGE DISPLAY ROUTINE. TYPE Y(ES) TO CONTINUE. 
>y 
d. status of Friendly Platforms and Input of 

Instructions 

This option displays individual platform status 
and accepts and processes all relevant commands. The 
program is descriptive and self-prompting. There are 
differences between aircraft and other platforms; therefore, 
there are two Slightly different routines. Aircraft must be 
launched from the parent ship, must have a speed of zero to 
enable search missions and they must only carry one weapon 
system during a flight. 

As this option is entered, the following is 
displayed: 
YOU HAVE SELECTED INDIVIDUAL PLATFORM STATUS DISPLAY AND 


ASSOCIATED COMBAT, MOVEMENT AND SEARCH COMMAND INPUTS. 
ENTER THE NAME OF THE DESIRED PLATFORM, 


(1) Initial display for non-aircraft platforms 
The player will see the following and make 


the entries in the same fashion as in this example: 


»>tincan 
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MEN AN Sis LOCATED AT POSITION 500 SPEED 0 
IT WAS NOT ASSIGNED A SEARCH MISSION 
TINCAN WEAPON SYSTEM(S) 


TYPE RANGE 
1 MK 46 20 
2 ASROC 7 


NO COMBAT ENTER N(ONE) - OTHERWISE ENTER 
TARGET LOCATION 
WEAPON SYSTEM NUMBER IN THIS FASHION 


Sn 


TO SCHEDULE MOVEMENT ENTER 
~» PEED 
DES TINATION IN THAT ORDER, OTHERWISE ENTER N(ONE) 


3 02 


ENTER SEARCH MISSIONS AS FOLLOWS: 
0 NONE SCHEDULED 
1 ACTIVE MISSION 
2 PASSIVE MISSION 
3 ACTIVE AND PASSIVE 


3 
YOU HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT: 

NONE SCHEDULED 


DESTINATION 502 Serie) 32 
ACTIVE AND PASSIVE SEARCH MISSION 


ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(O) TO RETURN TO DISPLAY SELECTION 


Py 


ENTER THE NAME OF THE DESIRED PLATFORM 


lirestines starting with the ')' are the player's entries. 
The player should recognize that when an active search 
mission and/or a combat mission is assigned, the platform's 


risk of being detected is significantly greater. 
LL6 





(2) Full display for non-aircraft platforms. If 
a platform had combat and search missions scheduled during 
the previous game turn, the results of these missions are 
reported just before new input instructions are asked for. 
The following illustrates the full range of information 
displays; i1.e., Combat results; damage inflicted; movement 
and Search missions undertaken and subsequent orders for 


the present game turn: 


> Tehereyel 
LAPON IS LOCATED AT POSITION 712 SPEED 2 
THE LAPON ATTACK ON TARGET LOCATED AT 1522 
Pooeeeoh OF SUBROC RESULTED iN 
A DETONATION WITH PROBABILITY 
foeA HIT OF 4 OUT OF 6 


RELEASE OF MK 48 RESULTED IN 
A DETONATION(HIT) 


IT WAS ASSIGNED THE FOLLOWING SEARCH MISSION(S) 
ACTIVE 


TYPE LOCATION . METHO RANGE 
SUBMARINE sal ACTIVE 6 
LAPON WEAPON SYSTEM(S) 

TYPE RANGE 
1 SUBROC 25 
2 MK 48 25 


NO COMBAT ENTER N(ONE) - OTHERWISE ENTER 
TARGET LOCATION 
WEAPON SYSTEM NUMBER IN THIS FASHION 


migil 
1 


TO EMPLOY ANOTHER WEAPON SYSTEM, ENTER THE SYSTEM NUMBER 
OTHERWISE ENTER N(0) 


ae 


TO EMPLOY ANOTHER WEAPON SYSTEM, ENTER THE SYSTEM NUMBER 
OTHERWISE ENTER N(0O) 


>n 
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TO SCHEDULE MOVEMENT ENTER 
© PEED 
DESTINATION IN THAT ORDER, OTHERWISE ENTER N(ONE) 


> 

S714 

ENTER SEARCH MISSIONS AS FOLLOWS: 
0 NONE SCHEDULED 
1 ACTIVE MISSION 


2 PASSIVE MISSION 
3 ACTIVE AND PASSIVE 


>1 

YOU HAVE ENTERED THE FOLLOWING COMMANDS 

COMBAT: 
SU BROC WEAPON TGT LOCATION 1311 
MK 48 WEAPON TGT LOCATION 1311 


DESTINATION 714 Sa Dae 
ACTIVE SEARCH MISSION 


ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
N(O) TO RETURN TO DISPLAY SELECTION 
i) 


Sain cial Display tonwererart. The following 


Meiastrates the initial display for an aircraft prior to 


launch: 


> knox1 

KNOX1 IS CURRENTLY NOT FLYING - IT IS ASSUMED YOU 
Peorke TO LAUNCH. 

KNOX1 IS NOW BEING LAUNCHED 


MOVEMENT NOT DESIRED ENTER N(ONE) OTHERWISE ENTER 
» PEED 
DESTINATION HEX IN THIS FASHION 


>12 
51720 
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ENTER SEARCH MISSIONS AS FOLLOWS: 
O NONE SCHEDULED 
1 ACTIVE MISSION 
2 PASSIVE MISSION 


e 

-° HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT: 

NONE SCHEDULED 

DESTINATION 1720 SPEED 12 

THERE IS NO SEARCH MISSION SCHEDULED 


ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(O) TO RETURN TO DISPLAY SELECTION 


yy 


Peek THE NAME OF THE DESIRED PLATFORM 


(4) Full Display for Aircraft. The following 


illustrates the difference between the initial display 


and one with combat results. 


>knoxt 


KNOX IS LOCATED AT POSITION 520 AT SPEED 0 
IT RELEASED A MK 46 AT A SUBMARINE TARGET LOCATED 
PESPOSITION 518 
THE WEAPON 
DETONATED (HIT) 
IT CONDUCTED AN ACTIVE SEARCH WITH FOLLOWING RESULTS 


SUBMARINE CONTACT LOCATION RANGE 
Sie 2 
KNOX1 WEAPON SYSTEM(S) 
ae ks RANGE 
1 MK 46 20 


NO COMBAT ENTER N(ONE) OTHERWISE ENTER 
TARGET LOCATION 
WEAPON SYSTEM NUMBER IN THIS FASHION 


>n 

MOVEMENT NOT DESIRED ENTER N(ONE) OTHERWISE ENTER 
» PEED 

PeoliNATION HEX TNS FASHION 


a 





en 
ENTER SEARCH MISSIONS AS FOLLOWS: 
Gee NONE SCHEDULED 


t ACTIVE MISSION 
2 PASSIVE MISSION 


>t 

YOU HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT: 

NONE SCHEDULED 

oefe20 IS ZERO AT LOCATION 520 

Pheeo live SEARCH MISSION WILL BE CONDUCTED 


ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(O) TO RETURN TO DISPLAY SELECTION 
Py 

The player should also be careful not to 
use a weapon which is inappropriate for the target; for 
instance, cruise missles against a submarine; nor to employ 
a weapon system beyond its tactical range. Also note that 
all commands are echoed ror to exiting from that section. 
If the player has made erroneous entries, he may enter Y(ES) 
Gomeontinue with another platform and reenter the platform's 
name over again. The only problem is that the vagaries of 
the programming will not allow the player to delete an 
employed weapon system. (All else may be changed. ) 

It should be noted that the coding is 
self-explanatory and user-friendly. By following the 
computer prompting, the players’ only errors should be 
meacuicalt 

(5) Damage suffered. The following example 
illustrates how platform self-damage is displayed just prior 


to accepting orders: 


50 





>boris 
Pent Ts LOCATED AT POSITION 1522 SPEED 2 


NOTE 

DUE TO PREVIOUS AND/OR CURRENT DAMAGE SUFFERED, MAX SPEED 
IS NOW O 

THE SHIP HAS BEEN HIT 3 TIMES 


iietAs BEEN HIT BY A TORPEDO 
IT HAS BEEN HIT BY A NON-TORPEDO WEAPON 
feeds BEEN HiT BY A TORPEDO 
THE BORIS ATTACK ON TARGET LOCATED AT 720 


ReerASk OF 21" RESULTED IN 
A DETONATION (HIT) 


ITT WAS ASSIGNED THE FOLLOWING SEARCH MISSION(S) 
ACTIVE 


mer LOCATION METHOD RANGE 
aeRe WERE NO DETECTIONS 


Sick THE BORIS HAS BEEN SUNK, NO COMMAND INPUTS CAN BE 
ACCEPTED 
ENTER (Y)ES TO CONTINUE WITH ANOTHER PLATFORM 
ENTER (N)O TO RETURN TO DISPLAY SELECTION 
When N(O) is entered, control is returned 


to the selection of display options. 


E. GAME END 
As previously discussed, there are three possible ways 
to end the game. 
1. Game Turns 
When the number of game turns exceeds the number 


input by the players, the following message is printed: 


pul 





YOU HAVE JUST COMPLETED GAME TURN 2% 
TYPE Y(ES) IF YOU WANT TO CONTINUE THE GAME, OR N(0) 
TO ALLOW THE GAME TO END. 
an 
If "NO" is entered, the game results are displayed. 
2. Disengagement 
When the number of destroyed ships for one player 
equals or exceeds the number he input for disengagement, the 
following statement is printed: 
THE NUMBER OF BLUE SHIPS DESTROYED IS EQUAL TO OR 
GREATER THAN THE NUMBER INPUT FOR GAME END. IF YOU WANT 
TO CONTINUE THE GAME, TYPE Y(ES). TYPE N(0) TO END THE GAME. 
> Y 
bee eotal Destruction 
The total destruction of one player's ship forces 


Will automatically end the game by displaying the final game 


mesults. 


foe INAL RESULTS 
Game end results in the following information being 


printed: 


Peue RESULTS: 


FINAL 
ol? Sec BW sy Heats LOCATION 
TINCAN 0 feo 
ESCORT SUNK eo 
LAPON 0 714 


imap Y{ES) TO SEE RED RESULTS. 


> yes 


pe 





RED RESULTS : 


FINAL 
SHIP Seis Ws LOCATION 
IVAN SUNK 1321 
BORIS SUNK 1522 


The players are also given the option of starting a new 
game : 


TYPE Y(ES) TO RETURN TO MENU SELECTION AND START A NEW 
GAME. TYPE N(O) TO EXIT THE GAME. 


py 
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IV. PROGRAM DOCUMENTATION 


A. INTRODUCTION 

This chapter contains documentation for the approximately 
2350 lines of FORTRAN source code which comprise the computer 
version of Up Scope. It is intended primarily for the reader 
who is interested in modifying the program. In using this 
chapter, the reader should refer to the source listing in 
Appendix F. 

The program can be logically divided into the following 
parts: 

1. Dimension, Common and Data Statements 

2. Game Parameters and Weapon Systems Initialization 

3. Game Control 

4, Display Subroutines 

5. Combat Execution Subroutines 

SU tiluty Subroutines 
Maem of the six parts will be described individually in the 
following pages. However, prior to a description of the 
FORTRAN source program, one should obtain an understanding 


of the major arrays and variables used in the program. 


B. DESCRIPTION OF THE MAJOR ARRAYS 
This section will only discuss the major arrays such as 
those used in the common statement and dimensioned in the 


main program for data arrays. All arrays are integer. 
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i, Arrays in common storage 
a. PLATFM(100, 37) 

PLATFM is the largest and most important of all 
the arrays because it contains the basic information about 
each selected platform. Each platform has 37 columns associ- 
ated with it. The size of the row dimension of PLATFM 
limits the game to 100 weapon systems. Aircraft, Bees 
ships and submarines are included in the array. Due to the 
difference of their attributes, the columns of PLATFM 
associated with aircraft do not always serve the same purpose 
as those associated with ships, and only the first 24 columns 
of rows dealing with aircraft contain information. Any 
differences are discussed below. 

(1) PLATFPM(xxx,1). This column is used as a 
combat assignment flag. If the platform is an aircraft, a 
zero indicates no combat is scheduled, a one indicates 
combat is scheduled and weapon one is to be used and a two 
indicates weapon two is to be used. If the platform is a 
Ship, a zero indicates no combat and a one indicates combat. 
This difference is due to the fact that aircraft can only 
fire one weapon per game turn while ships can fire up to 
three. 

(2) PLATFM( xxx, 2). This column holds the 
combat location which is the hex address to which the weapon/ 


weapons will be delivered. 
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(3) PLATFM(xxx,3). This is the hex address of 
the current location of the platform. 

(4) PLATFM(xxx,4). Current speed of the 
pact orm. 

(5) PLATFM(xxx,5). This is the hex address of 
the future location of the platform. 

(6) PLATFM(xxx,6). This column is used as a 
disturbed water flag. <A zero means the platform is not 
within one hex of a disturbed water zone and a three means 
it is. A three is used because the routine that controls 
detections adds the contents of this column to the ship's 
evasion value. 

(7) PLATFM(xxx,7). Column seven controls the 
search mission assigned to the platform. A zero indicates 
no search misSion is scheduled, a one means the active sonor 
is to be used, a two means the passive sonor is to be used 
and a three means both are to be used. 

(8) PLATFM(xxx,8). This column indicates the 
platform type. A zero means the platform is an aircraft, 

a one means a surface ship and a two means a submarine. 

(9) PLATFM(xxx,9). This column is not used at 

present and is reserved for possible improvements to Up Scope. 
| (10) PLATFM(xxx,10). This column is not used at 

present and is reserved for possible improvements to Up Scope. 
Cen meeehOUnvNCxXxx, 1) eukor airerans, this column 


eemerains 42 zero or a one. A zero means the aircraft is not 
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flying and a one means it is flying. For ships, the column 
contains the number of durability points lost. 


(12) PLATFM(xxx,12). Max speed of the 


platform. 

(13) PLATFM(xxx,13). Active detection value of 
the platform. 

(14) PLATFM(xxx,14). Passive detection value 
Seeecne pDlatiorm. 

(15) PLATFM(xxx,15). The number of type one 
weapons carried by the platform. 

(16) PLATFM(xxx,16). The number of type two 
weapons carried by the platform. 

Gi, Sern rNincewt?). 8MOr airerart, this@is the 
row index of the type one weapon. For ships, this column 
holds the number of type three weapons carried by the platform. 

(18) PLATFM(xxx,18). For aircraft, this is the 
row index of the type two weapon. For ships, it holds the 
evaSion value. 

(19) PLATFM(xxx,19). For aircraft, this colum 
is not used. For ships, it is the defense value of the ship. 

(20) PLATFM( xxx, 20). EP Oomecine rata thirs value 
is set at one. For ships, it contains the durability points 
of the ship. I1t will become zero when the ship is sunk. 

(20) PLATPM( xxx, 221). For aircraft, this column 
holds the row index number of the ship to which it belongs. 


For ships, it holds the index of the type one weapon. 
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(22) PE AtThM xseen 22). Por aircraft, this is the 
row index for the type of aircraft. For ships, it holds the 
row index of the type two weapon. 

(23) PLATFM( xxx, 23). For aircraft, this column 
holds a number asSociated with the probability that weapon 
one hit its target. A zero means the weapon was not fired 
during the last game turn, a one through six means the number 
of chances out of six the weapon had of hitting its target, 

a seven means the weapon fired was a torpedo and there was a 
detonation and an eight means the weapon was a torpedo and 
there was nodetonation. For ships, it holds the row index of 
the type three weapon. 

2 me PLATEN( xxx, 24), Gor aimemait, this column 
holds the same information as PLATFM(xxx,23) except for 
weapon two. For ships, it is a flag that indicates if 
Simultaneous active and passive search misSions are 
possible. A zero means simultaneous missions are not possible 
and a one means they are. 

eee le Mixx, 25) nis ismeawi lag that contains 
a zero if the ship's passive sonor system suffers no degrad- 
ation from speed and a one if degradation is caused by 
speed. 

(26) PLATFM(xxx,26). The row index of the type 
one aircraft carried by the ship. 

(27) PLATFM(xxx,27). The row index of the type 


two aircraft carried by the ship. 
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(28) PLATFM(xxx,28). The number of type one 


paeeratt carried by the ship. 


(29) PLATFM(xxx,29). The number of type two 
emreratt carried by the ship. 

(30) PLATFM(xxx,30). The class row index of the 
ship. These numbers link the platform with the information 
found in Appendix B. 

(31) PLATFM(xxx,31). The PLATFM row index 
number of the first type one aircraft carried by the Ship. 

(32) PLATFM(xxx,32). The PLATFM row index 
number of the first type two aircraft carried by the ship. 

(33) PLATFM(xxx, 33). The PLATFM row index 
number of the last type one aircraft carried by the ship. 

(34)  PLATFM( xxx, 34). The PLATFM row index 
number of the last type two aircraft carried by the ship. 

(35) PLATFM(xxx,35). This column holds a 
number associated with the probability that weapon one hit 
its target. A zero means the weapon was not fired during 
the last game turn, a one through six means the number of 
chances out of six the weapon had of hitting its target, a 
seven means the weapon fired was a torpedo and there was a 
detonation and an eight means the weapon was a torpedo and 
there was no detonation. 

(36) PLATFM( xxx,36). The same information as 


PLATFM(xxx,35) except for weapon two. 
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7 eee eee ve «6 The Same information as 
PLATFM(xxx,35) except for weapon three. 
Dee Ce Gre 00 53) 

The DETECT array is used to store the detections 
face OCCUr during a game turn. After each turn,the first 
column is initialized to minus one. If a game turn results 
in more than 100 detections a mesSage is printed, but the 
game continues. All detections beyond 100 are lost. 

(1) DETECT( xxx,1). Column one contains the 
PLATFM row index of the platform that is detected. 

(2) DETECT(xxx,2). Column two contains the 
PLATFM row index of the platform that is detected. 

(3) DETECT(xxx,3). Column three contains a 
flag indicating the type of sensor used. A zero means 
passive and a one means active. 

(4) DETECT(xxx,4). Column four contains the 
distance in hexes between the detected and the detecting 
platforms. 

c. WEP( 29,3) 

The WEP array contains the basic information 
about the 29 types of weapons portrayed by the game. The 
Same information is contained in the data array WEPDA. The 
two are set equal so WEP can be commoned. The information 
contained in the array can be found in the Weapon Data 


summary, Appendix C. 
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(1) WEP(xx,1). This holds the accuracy rating 
of the weapon. 

(2) WEP(xx,2). This is the range of the weapon 
in hexes. 

(3) WEP(xx,3). This is the index for the type 
of weapon. A one indicates a missile, a two a missile/depth 
bomb, a three a torpedo and a four indicates a depth charge. 

a HEmeroo, 3) 

The HIT array is used to maintain the results of 
combat for a game turn. At the end of each turn the results 
are entered into PLATFM, and the first column of the HIT 
array iS initialized to minus one. 

(1) HIT(xxx,1). The PLATFM row index of the 
platform that fired the weapon. 

(2) HIT(xxx,2). The row index of the type of 
weapon fired. 

(3) HIT(xxx,3). The PLATFM row index of the 
platform hit by the weapon. 

e. SUNK(100) 

SUNK is the vector of PLATFM row index numbers 
of ships that have been sunk. This is a cumulative list in 
order of the occurrence of each Sinking. 

f. WATER(100) 
WATER is a vector of the hex addresses that 


contain disturbed water as a result of a weapon detonating. 
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It 1S initialized to negative one prior to the combat 
execution phase. 
g. NAME(100,6) 

NAME is an alpha array that contains the 
user-supplied names of platforms. Each row is associated 
with the same numbered row in PLATFM. Its format is 6A1. 

ee SUEPER( 100, 7) 

BUFFER is the array used to hold the combat, move 
and search commands until the next game turn is started. 
This allows the user to recall each display option as many 
times as desired without disturbing the information con- 
tained in PLATFM. This information is input to PLATFM 
when the combat driver CONTRL is called. 

(1) BUFFER(xxx,1). This column holds the 
combat assignment flag associated with PLATFM(xxx,1) 

(2) me BUR FERixxx,c). This is the combat location 
desired for the next game turn. 

(3) BUFFER(xxx,3). This is the speed desired 
for the next game turn. 

(4) BUFFER(xxx,4). This is the desired 
location for the next game turn. 

(5) BUFFER(xxx,5). This column assigns the 


type of search mission for the next game turn. 


(6) BUFFER(xxx,6/7/8). These columns are used 


by non-aircraft to assign which weapons will be employed. 
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i. BLUPAS(6) 

BLUPAS is the array that holds the blue player's 
alpha password. It is usedbefore the initial loading of 
weapon systems and before each game turn to ensure the 
players cannot enter instructions to the other's platforms. 

j- REDPAS(6) 

REDPAS contains the red player's password and 

is used in the same way as BLUPAS. 
3. Data Arrays 

The data arrays (most of those used in the dimension 
statement) contain the basic information about the weapon 
systems portrayed by the game. sSome of them are equival- 
enced to ease their entry and understanding. This will be 
discussed in the section dealing with the initial portion 
of the main program. 

a. SHIPDA(130,18) 

SeEPPDA as the data array that holds the basic 
information about the ships portrayed by Up Scope. This 
information can be found in Appendix B. This information is 
transferred to PLATFM during the initial loading of the user 
selected weapon systems. Each column in SHIPDA is 
equivalenced to one of the arrays S81 through $18, and the 
data statements are actually in terms of the S arrays. 


(1) SHIPDA(xxx,1)/Si1(xxx). Max speed of the 


Syme « 
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(2) oh pa xxx 2p s2( xxxNee Active detection 


value of the ship. 


(3) SHIPDA( xxx, 3)/S3(xxx). Passive detection 


value of the ship. 

(4) SHIPDA(xxx,4) /S4(xxx). A flag that is zero 
if active and passive Sonor cannot be used simultaneously 
and a one if they can. 

(5) SHIPDA( xxx Soleo A tlag that is zerc 
if the passive sonor system capability is degraded by the 
speed of the platform and a one if no degradation occurs. 

(6) SHIPDA(xxx,6)/S6(xxx). Evasion value of 
the ship. 

(7) SHIPDA( xxx S7(xxx). Defense value of 
the ship. 

(8) SHIPDA(xxx,8)/S8(xxx). The index of the 
type one weapon carried by the ship. 

(9) SHIPDA(xxx S9( xxx). The number of type 
one weapons carried by the ship. 


(10) SHIPDA(xxx,10)/S10( xxx). The index of the 


type two weapon carried by the ship. 


Gy sHEPDA(xxx,11)/Stitxxx). The number of 


type two weapons carried by the ship. 


(12) SHIPDA(xxx,12)/S12(xxx). The index of the 


type three weapon carried by the ship. 
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Os On EPDAl xxx, 1 513(xxx). The number of 
type three weapons carried by the ship. 

(14) SHTIPDA(xxx,14)/S14(xxx). The index of the 
type one aircraft carried by the ship. 

(15) SHIPDA( xxx,1 S15(xxx). The number of 
type one aircraft carried by the ship. 

(16) SHIPDA(xxx,16)/S16(xxx). The index of the 
type two aircraft carried by the ship. 

(17) SHIPDA(xxx,1 Sl7\ soo.) ihe number of 
the type two aircraft carried by the ship. 

(18) SHIPDA(xxx,18)/S18(xxx). Durability value 
Sie tne ship. 

b. NAMESH(130,8) 

NAMESH is an alpha array that contains the class 
names of the ships found in SHIPDA and Appendix B. Each 
column of NAMESH is equivalenced to one of the arrays NS1 
through NS8, and the data statements are actually in terms 
of the NS arrays. The format of NAMESH is 8A2. 

ene Ae@maraA( 16,7) 

ACDATA is the data array that contains the 
aircraft information. The information it contains can be 
found in Appendix D. 

(1) ACDATA(xx,1). Max speed of the aircraft. 

(2) ACDATA(xx,2). Active detection value of 


beer aircrart. 
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(3) ACDATA(xx,3). Passive detection value of 
mae aircrart. 

(4) ACDATA(xx,4). The index of the type one 
weapon carried by the aircraft. 

(5) ACDATA(xx,5). The number of type one 
weapons carried by the aircraft. 

(6) ACDATA(xx,6). The index of the type two 
weapon carried by the aircraft. 

(7) ACDATA(xx,7). The number of the type two 
weapons carried by the aircraft. 

d. NAMEAC(16,6) 

NAMEAC is an alpha array that contains the names 

of the 16 aircraft. The format of NAMEAC is 6A2. 
e. WEPDA(29,3) 

WEPDA is the data array that contains the weapon 
data. It is equivalent to WEP which is discussed in the 
section dealing with the arrays in the common statement. 

f. NAMEWP( 29,6) 

NAMEWP is an alpha array that contains the names 

of the weapons. Its format is 6A2. 
g. INPUT(70) 

This array is used to read in strings of alpha 
characters. All inputs are read in this way and then 
converted to the mode and format of the information actually 


required. 
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h. ALPHA(2) 
ALPHA(1) contains a 'Y' and ALPHA(2) contains an 
'N'. This array is used to compare user answers to questions 
that require a yeS or no answer. 
ae CHECK( 6) 
CHECK is used to compare user inputs to the Red 
or Blue passwords. 
j. CLASNA(8) 
CLASNA is used to read in the ship class names 


entered by the user. 


C. DESCRIPTION OF MAJOR VARIABLES 
The variables described in this section include only 
the major variables like those found in the COMMON statement. 
Other variables will be discussed as they appear in the 
program description. Normally single letter variables are 
used as local and temporary variables. 
1. IJPLAtT 
This variable is the total number of platforms 
loaded in the PLATFM array. It is used for loops that act 
on aircraft, surface ships and submarines. 
Zee LALR 
IAIR is the total number of aircraft loaded in the 
PLATFM array. 
3. ISURF 
ISURF is the total number of surface ships loaded in 


the PLATFM array. 
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4, ISUB 
ISUB is the total number of submarines loaded in the 
PLATFM array. 
5. ADV 
ADV is the variable used to represent a ship's 
active detection value. It is used between all the 
detection subroutines. 
6. PDV 
PDV is the same as ADV for passive detection value. 
7. AEV 
AEV is Similar to ADV and PDV except it represents a 
Ship's active evasion value. 
oa. = PRV 
PEV is used the same way as AEV except for passive 
evaSion values. 
9. ERATIC 
This variable is a flag that indicates the water 
condition of the playing area. 
10. BLUAIR/REDATR 
These variables hold the number of Blue/Red 
aircraft entered by the players. 
11.  BLUSUR/REDSUR 
These variables hold the number of Blue/Red surface 
Ships entered by the players. 
12. BLUSUB/REDSUB 


The number of Blue/Red submarines entered. 
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13. PBAIRi/PBAIR2 
Miemenervartables Of this form are pointers to the 
PLATFM array, and they are actually acronyms for what they 
represent. P(latform)B(lue)AIR1 is the row index number of 
the first Blue aircraft entered in PLATFM. P(latform)B(lue) 
AIR2 is the row index number of the last Blue aircraft 
entered in PLATFM. These variables are used in the initial 
loading of the PLATFM array and in the display subroutines. 
Figure 4 shows how the pointers are aligned, and how the 
data in PLATFM is arranged. 
14. PRATRI/PRAIR2 
These variables are pointers to the first and last 
Reamaircrait in PLATFM. 
15. PBSUR1/PBSUR2 
Pointers to the first and last Blue surface ships 
in PLATFM. 
16. PRSURI/PRSUR2 
Pointers to the first and last Red surface ships in 
PLATFM. 
Mee) EBoUBI/PBSUB2 
Pointers to the first and last Blue submarines in 
PLATFM. | 
ioe) PROUBI/PROUB2 
Pointers to the first and last Red submarines in 


PLATFM. 
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Row Index Number 


PBAIR1 


Rows for Blue Aircraft 


PBAIR2 


Rows for Red Aircraft 


PBSUR1 


Rows for Blue Surface Ships 


PBSUR2 


Rows for Red Surface Ships 


PBSUB1 
Rows for Blue Submarines 


PBSUB2 
PRouUBL 


Rows for Red Submarines 





Figure 4. Format of the PLATFM Array 
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He AGED SA) 
TURN stores the total number of game turns the 


players choose to play. 


D. DIMENSION, COMMON AND DATA STATEMENTS 

The first 194 statements of the program are dedicated to 
dimensioning the major arrays and setting up the data base 
required for Up Scope. 

1. Line 1 

All variables and arrays used in the program are 

integer except for: R which is used in the shot result 
subroutine to express the probability of a weapon hitting a 
target, RN which is used in FIRE to generate a random number 
and Y which is used in AEVSUB and PEVSUB in calculating 
evaSion values. 

mee uimes 2 through 17 

The DIMENSION statement includes all the arrays 

discussed in section B.2. of this chapter. The majority of 
these arrays are used to ease the entry of data and are 
equivalenced to the arrays actually used by the program. 
The use of so many arrays eased the data entry because each 
array of the Sx type contained only one type of ship 
information. For example, S6 contains all the evasion 
values for the 130 ship types in Up Scope. If the evasion 
value of the America was wrong, the error would be in the 


second element of S6. It is in the second element because 
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the America is the second ship type in the data contained 
in Appendix B. 
pee uines 18 through 25 
All the arrays and variables in the COMMON statement 
were discussed earlier in this chapter. 
4, Lines 26 through 191 
These lines are the actual data statements used to 
load the basic platform and weapon information. Each one of 
these arrays was discussed in section B.2. of this chapter. 
As previously mentioned, each Sx array is one column of the 
SHIPDA array, and each NSx array is one column of the NAMESH 
array. 
pee Wine 192 
MAXPLT is used as the maximum number of platforms 
that can be played by the game. This limit is imposed by 
the size of the PLATFM and NAME arrays. 
6. Line 193 
ALPHA is an array used to check the player's answers 


to "yes" and "no" type questions. 


E. GAME PARAMETERS AND WEAPON SYSTEMS INITIATION 
Lines 194% through 742 are used to initialize all the 
arrays and variables, load the basic game parameters and to 
load the player-selected platforms. 
1. Lines 194 through 201 
This is a loop that sets the array WEP equal to the 
data array WEPDA so WEP can be placed in the COMMON 


statement. 
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Peeecinesumczoe through Zit 


These lines initialize the game parameter variables 
ZO Zero. 
fee bines 212 through 231 
These lines contain a nested loop that sets PLATFM, 
WATER, DETECT, HIT, SUNK and BUFFER to their initial values. 
4, Lines 232 through 245 
These lines print the format statement that gives 
the menu of choices and reads the player's choice. The 
alpha array INPUT is used to read the number of the player's 
choice as a character string, and the Subroutine NONVRT 
discards any leading blanks and returns the integer form of 
the choice. 
5. Lines 246 through 256 
This group of statements will cause new arrays 
entered by the players to be reinitialized. It is an option 
that will allow the players to start a new game. Once the 
option is selected the players are asked if they want to 
continue and are given a chance to return to menu Selection 
without erasing the arrays. The players answer to this 
question is read by INPUT, and any leading blanks and 
characters other than the first one are discarded by INVRT1. 
If the players want to restart the game, control is 


transferredto 99(line 205). 
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eee bine 257 
This line transfers control to the STOP statement 
if the players indicate a desire to stop play and exit the 
game. 
7. Lines 258 through 284 
These statements print a warning about the maximum 
number of platforms allowed by the game, and read the number 
of game turns the game is to last and the water condition. 
8. Lines 285 through 324 
These lines read the basic game parameters and the 
password for the Blue side. The password is read with 
INPUT, and INVRT6 discards any leading blanks and any 
characters other than the first six. It returns the 
password as BLUPAS which is echo-printed to ensure the 
player knows his password as "understood" by the program. 
The variables BLUSUR, BLUSUB and BLUDES are also input and 
echoed by these lines with an opportunity to correct any 
errors. 
Oe) Gaines 325 through 364 
Lines 325 through 364 perform for the Red player the 
same function lines 285 through 324 do for the Blue player. 
10. Lines 365 through 375 
These statements assign numbers to variables used 
as pointers to the PLATFM array during the initial loading 
of the platforms. Because the program automatically loads 


the aircraft carried by a ship and the combat, move and 
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measeen LOuULINesS require alrcraft to appear first in the 
array, Surface ships and submarines are located at the 
bottom of the PLATFM array using these pointers. fThis 
method of loading leaves a gap between aircraft and ships 
unless there are exactly 100 platforms loaded. The gap, 
mei CxliSoS, 1S closed prior to the start of the game. 
Figure 4 as previously shown, shows the form of the PLATFM 
array and its pointers prior to closing the gap. 
11. Lines 376 through 534 

This section of the program performs the loading of 
the platforms selected by the Blue player. 

a. Lines 379 through 397 

These lines ask for, and read, the Blue player's 

password. If the reply is incorrect, he is given the 
opportunity to reenter the password or return to menu 
Selection. DO LOOP 141 compares each element of the array 
CHECK with BLUPAS. A is set equal to one if any elements 
do not match and an error message is printed. If the 
entered password is correct, control is transferred to 8 
(line 398) and the player proceeds with loading. 

b. Lines 398 through 446 

This section controls the loading of the Blue 

Surface ships. SHIPNO is a local variable that is used to 
Store the number of the Blue ships being loaded. It runs 
from zero to BLUSUR. Prior to entry into the loading loop, 


BLUSUR is checked against zero, and control is transferred 
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to the submarine loading section if no Blue surface ships 
were desired by the player. DO LOOP 165 is a long loop 

that does all the surface ship loading. It runs from PBSUR1 
GoerboUR2Z using SHIP as its index. The first steps of the 
loop are used to increment SHIPNO by one and print a format 
statement requesting a six character name for the SHIPNO 
ship. This player assigned name is stored in NAME(SHIP,x). 
This player assigned name is stored in NAME(SHIP,x). SHIP 
is also the row index number of PLATFM containing the infor- 
mation associated with NAME(SHIP,x). Next the player is 
asked to enter the ship class name of SHIP. The proper 
class names and the specifications for each class can be 
found in Appendix B. CLASNA is used to store the class 
name, and subroutine SCLASS is called to find the row index 
number of the class name in NAMESH that matches CLASNA. 

This index is stored in CLASIN, and it is associated with 
the row in SHIPDA that contains the basic information for 
that class of ship. CLASIN is stored in PLATFM(SHIP, 30). 
The next piece of information entered is the initial hex 
location for the ship which is stored in PLATFM(SHIP, 3). 

The last 19 statements of this section transfer the ship 
class information from SHIPDA and enter it in the appropriate 
eomums Of PLATFM. Sections B.1. and B.2. of this chapter 


discuss the contents of the columns of these arrays. 
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c. Lines 447 through 485 

POSEOOr Sa 5eisethe loop that Loads any aircerait 
SHIP carries. It runs from 26 to 27 because these are the 
columns of PLATFM that contain the aircraft index numbers. 
The first statement of the loop checks the column to see if 
an index number is entered. If the number is zero, control 
passes to the end of the loop. If the location contains an 
aircraft index number, the number is stored in ACINDX. The 
next statement prints the class name of the ship being 
loaded, the number of ACINDX type aircraft the ship carries 
and the name of the ACINDX type aircraft as stored in 
NAMEAC. Line 456 stores the row index number of the first 
ACINDX type aircraft in the parent ship's PLATFM row. Line 
457 adds the number of ACINDX type aircraft carried by the 
ship to BLUAIR, and line 458 stores the row index number of 
the last ACINDX type aircraft in the parent ship's PLATFM 
row. DO LOOP 154 actually loads the aircraft information 
Miro uAIrM. Its index is AC, and it runs from P to Q@ which 
are set equal to the first and last PLATFM row index numbers 
of the aircraft. ACOUNT is the number of the aircraft being 
loaded. DO LOOP 154 also askes the player for a six character 
name for each aircraft. DO LOOP 153 enters the name 
in the NAME array. The next 12 lines transfer the required 


information from ACDATA to PLATFM. 
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d. Lines 486 through 534 
This section loads the Blue submarines. The 
first statement checks BLUSUB to see if the Blue player 
entered a request for Submarines. If not, control is 
transferred to the first statement of the Red loading 
section. DO LOOP 175 controls the loading, and it runs from 
Eoeewub! to PBSUBZ. SUB is the index of the loop and SUBNO is 
the number of the submarine being loaded. The submarine 
loading statements follow the same pattern as the surface 
Ship section except no aircraft are loaded. A six character 
name for the submarine is requested and entered in the NAME 
array. A class name and an initial hex location are also 
requested. The last 18 lines transfer data from SHIPDA to 
PLATFM. 
Wemeebnes 535 through 692 

These statements perform the loading of Red 
platforms, and they are almost an exact duplication of the 
Blue loading section. The only difference is in line 57 
which sets REDAIR equal to BLUAIR. This is necessary to 
ensure the Red aircraft are properly loaded into PLATFM 
using the incremental process starting in line 615. 

13. Lines 693 through 710 

The first five lines of this section set the 
aircraft PLATFM pointers. The variables for each type of 
platform and total number of platforms are also set. The 


total number of platforms, IPLAT, is compared to 100. If it 
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is larger, the game must be restarted, and control is 
transferred to 99 (line 205). 
14. Lines 711 through 742 

These lines close the gap between aircraft and 
ships loaded into PLATFM. The first statement checks the 
Meeation of the first Blue surface ship, PBSURI, against 
the row index number of the last Red aircraft, PRAIR2, plus 
one. If these numbers are equal, there is no gap and the 
Section is passed. If there is a gap, it is closed with a 
group of nexted do loops. DO LOOP 283 runs from one to 
ISHIP, the total number of Blue and Red ships, using I as 
an index. This loop moves through all rows of the PLATFM 
array that contain ships. DO LOOP 281 actually moves the 
information for each column of the selected rows. DO LOOP 
282 closes the gap in the NAME array. DO LOOP's 284 and 
285 check the ship's PLATFM row to see if it contains 
aircraft. If aircraft have been assigned, the PLATFM rows 
containing aircraft have new parent ship row index numbers 


Bieteed in column 21 to adjust for closing the gap. 


F. GAME CONTROL 

Lines 743 through 877 of the main program control the 
actual "play" of the game turns. This is accomplished by 
meveral administrative functions and calls to subroutines. 
A simplified flow chart can be found in Figure 5. ITURN 


is the counter for the number of game turns played, and it 
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Figure 5. Simplified Game Flowchart 
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is compared to the number stored in TURN to determine the 
normal game end. 
1. Lines 747 through 759 
LiewuresG Action required tor game control is to 
gain access to the display routines. This is done by 
requesting the Blue player to input his password and by 
calling subroutine STATUS discussed later in this chapter. 
STATUS will check the password and return an error code of 
zero in ERROR if the password is correct. If ERROR equals 
zero, STATUS will allow the player to view the results of 
the previous game turn and input instructions for the next 
turn. Control will then be transferred to 20 (line 760), the 
Red call to STATUS. If ERROR equals one, an error message 
is printed, and instructions are requested. The player 
can either reenter his password or return to menu selection 
to restart the game. 
2. Lines 760 through 770 
These lines perform the same function for the Red 
player as the previous section did for the Blue player. 
S- Line 771 
Line 771 calls subroutine CONTRL, discussed later 
an this chapter, which is the driver for all the combat, 
move and search routines. 
4, Lines 772 through 781 
BDES and RDES are local variables used to store the 


number of Blue and Red ships sunk after each game turn. DO 
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LOOP 303 loops through array SUNK, and increments the 
appropriate variable. 
5. Lines 782 through 793 
This section of statements asks Several questions 
about BDES. If BDES is equal to the total number of Blue 
ships, the game is automatically ended by transferring 
control to line 815. If BDES is less than BLUDES, the 
player-selected number for premature game end, control is 
passed to 23 (line 792) which checks RDES. The last eight 
lines are reached only if BDES is less than the total number 
of Blue ships and greater than or equal to BLUDES. They 
print a statement informing the player of the situation, 
and give him the option of continuing or ending the game. 
6. Lines 792 through 801 
These lines check RDES for the Red player as lines 
782 through 793 do for the Blue player. 
7. Lines 802 through 811 
Lines 802 through 811 increment ITURN and transfer 
control to the start of another game turn if it is less than 
TURN. If it is greater than or equal to TURN, the players 
are given the option of continuing or ending the game. 
8. Lines 812 through 878 
This section of statements ends the game by printing 
the status and final location of each ship. COUNT is a 
counter used to ensure the results are not pushed beyond the 


Gepecot a CRT display. DO LOOP 313 prints the results of 
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the game. It runs from A to B with PLT as its index. A and 
B are variables set equal to the first and last PLATFM row 
index numbers of each of the four types of ships. C is a 
flag that indicates which of the four is being printed 
(one-Blue surface, two-Blue submarines, three-Red surface 
and four-Red submarines). Lines 833 and 834 increment COUNT 
and compare it to ten. If COUNT is less than ten, control 
is transferred to the CONTINUE statement of the loop. If 
COUNT is equal to ten, a new page of output is started. 
Lines 843 through 845 check the value of C, and transfer 
control to the appropriate section to increment A, B and C. 
For example, if C is equal to one, control passes all three 
statements, and goes to the Blue Submarine section. There A 
is set equal to PBSUB1, B to PBSUB2 ard C is set equal to 
two. Control then returns to the loop to print the Blue 
Submarine results. If © is equal to two, control is 
transferred to line 863 which prints a message to begin the 
Red results. Then A, B, C and COUNT are updated for Red 
Surface ships, and control is again transferred to the loop. 
After all four ship results have been printed, line 868 
prints a message that gives the players a choice of starting 
anew game by returning to menu selection or letting the 
game end. If the game is allowed to end, line 87% prints an 


exit message. 


G. DISPLAY SUBROUTINES 
The display subroutines are called every game turn. 


They are used to display the results of the game turn and to 
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mips comvat, move and search instructions for the next 
turn. Four display options are available. They are 
detections of enemy ships, results of weapons fired, damage 
to friendly ships and individual display/input 
iiasvructions. 

1. Subroutine STATUS (PASWRD, ERROR, NAMEWP ) 

STATUS is the main driver for all the display 
routines. It is called with the player's password, PASWRD, 
and the array NAMEWP, and it returns an error flag in ERROR 
if the player entered the wrong password. No modification 
for Blue or Red calls is required because the subroutine 
asSigns appropriate local variables based on the entered 
password. 

taeines to birouscn 30 

DO LOOP 100 checks PASWRD against BLUPAS, and 
sets A equal to one if one of the elements does not match. 
[ie wtiis is the case, control is transferred to 300 (line 31). 
If PASWRD does match, the calling player is Blue and lines 
19 through 29 set local variables equal to the Blue PLATFM 
pointers and Blue game parameters. 

b. Lines 31 through 47 

These lines check PASWRD against REDPAS and if 
there is a match, perform the same operations as lines 14 


through 29. 
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c. Lines 48 through 51 
If neither BLUPAS or REDPAS match PASWRD, the 
player has made a mistake. These lines print an error 
message, and transfer control to the end of the subroutine 
with ERROR equal to one. 
d. Lines 52 through 64 
If either BLUPAS or REDPAS match PASWRD, control 
is passed to this section. The first seven lines print a 
format statement that asks the player to select and enter a 
display option. The answer is read by INPUT, converted to 
an integer by NONVRT and stored in A. Line 66 compares A to 
the possible option numbers, and prints an error message if 
maepese incorrect. If A is a proper option, control is 
meansterred to 830 (line 71). 
e. Lines 71 through 82 
These lines check A, and call the various 
display subroutines that correspond to the options. After 
each call, control is returned to 1000 (line 59), and the 
option menu is reprinted. 
f. Lines 83 through 92 
The last option is to start the next game turn. 
These lines print a format statement that asks the player 
if he has entered all combat, move and search instructions. 
If he does not answer yes, control is passed to line 59. 


Otherwise control is returned to the main program. 
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2. subroutine DETXT(AC1 ,AC2,S5UR1,SUR2,SUB1 ,SUB2, NAMEWP ) 


This subroutine loops through the DETECT array and 
prints the detections of the calling player's platforms. 
ALPHA1 is an alpha array that contains the word "SURFACE" 
in its first row and "SUBMARINE" in the second. ALPHA2 is 
an array that contains the words "PASSIVE" and "ACTIVE". 
COUNT is a counter for the number of lines the routine prints. 
When COUNT goes past a certain number, a new "page" of 
output is stated. This prevents detections from being 
pushed beyond the top of CRT display units. 

DO LOOP 6 is the only loop in the subroutine, and 
meeiuns trom one to 100 with PLT as its:index. PLT is the 
number of a row of the DETECT array. Dil is set equal to the 
first column of DETECT which contains the PLATFM row index 
number of the platform doing the detecting. D2 is set equal 
to column two of DETECT which contains the row index number 
of the detected Spee (becker tirs Column Of a row im the 
DETECT array is minus one, the previous row was the last 
detection, and control is transferred to the end of the 
routine. Lines 22 and 23 check the detecting platform to 
ensure it belongs to the calling player. If it does not, 
that row of the array is passed. If the detecting platform 
does belong to the calling side, line 25 prints four pieces 
of information. The first is the name of the detecting 
platform as stored in the D1 row of NAME. The second is the 


type of sonor used. A flag relating to the sonor type is 
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mored in the third column of DETECT. A one is added to 
this flag (zero-passive, one-active), and that row of 
ALPHA2 is printed. The third piece of information is the 
type of ship detected which is an index number stored in 
column eight of row D2 in PLATFM. This number yields the 
row of ALPHA1 which contains the ship type name. The last 
piece of information is the hex location of the D2 shin in 
PLATFM. Lines 28 and 29 increment COUNT and check it against 
the number 19. If COUNT is greater than or equal to 19, 
COUNT is set to zero, the heading is printed on a new page 
and control is passed back to DO LOOP 6. Otherwise control 


ieemaintained by the loop. 


fee Subroutine SHOTRE( ACI AC2 SURI ,SUR2Z,SUBI SUB2, 
NAMEWP ,SUR, SUB) 


SOLER eno tne Subroutine that displays the results 
of the weapons fired by the calling side. Ris a real 
variable that stores the probability of a hit, and ALPHA1 
is an array that holds the word "DETONATION" in row one and 
"NO DETONATION" in row two. COUNT is again used to count 
the number of lines printed so the results are not pushed 
mevyond the top of a CRT display. 

a. Lines 16 through 46 

These lines print the results of weapons fired 
Gyeaircratt. Line 16 transfers control to the ship loop if 
no aircraft are loaded. DO LOOP 10 runs from AC1 to AC2 


meu PLT as its index. Each number that PLT takes will be a 
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row index number of an aircraft in PLATFM of the calling 
erde. Columns 23 and 24 of PLATFM rows containing aircraft 
hold the shot results for weapons one and two respectively. 
If both these columns are zero, neither weapon was fired, 
and line 21 will transfer control to the end of the loop. 

If one of the aircraft's weapons was fired, line 22 prints 
the name of the aircraft, the name of its parent ship and 
the combat location. DO LOOP 7 loops through both weapons 
carried by the aircraft to see which one was fired. Only 
one weapon can be fired by an aircraft per game turn. 

RESULT is set equal to the column which holds the results of 
the weapon firing. The numbers one through six represent the 
number of chances out of six that the weapon scored a hit. 
The number seven or eight is used when the weapon fired was 
a torpedo. A seven indicates the torpedo detonated (a hit) 
and an eight means it did not detonate (a miss). Line 30 
prints the number of the weapon, the name of the weapon as 
stored in NAMEWP and the probability of a hit if the shot 
result 1s between one and six. If the result is seven or 
eight, line 34 prints the number and name of the weapon and 
"DETONATION" or "NO DETONATION". COUNT is then incremented 
and checked against five. If COUNT is greater than or equal 
to five, a new page of output is started and COUNT is set 


equal to zero. 
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b. Lines 47 through 69 
These lines print the weapon result for ships, 
starting with the surface ships. A is set equal to SURI, 
and B isset equal to SUR2. These are the PLATFM row index 
numbers of the first and last surface ships of the calling 
Side. C is set equal to one as an indication that surface 
ships are being processed. DO LOOP 16 runs from A to B with 
PLT as its index. Line 57 checks the column that holds the 
shot results for ships, and passes control to the end of 
the loop if none of the weapons for the PLT ship have been 
fired. Next the name of the ship and its combat location 
are printed. DO LOOP 15 runs from weapon one to weapon 
three for each ship using WP as its index. It checks the 
results of the WP weapon, and prints a statement giving 
mmesprobability of hit if RESULT is between one and six or 
a detonation result. 
Combines 70 through 75 
These lines Werenent COUlIE, compare 1t to four 
and start a new page of output if COUNT is equal to four. 
d. Lines 76 through 81 
Line 76 checks the value of C, and passes 
control to the RETURN statement if it is greater than one. 
If C is equal to one, DO LOOP 16 has just processed the 
Surface ship results, and must now do the submarines. C is 
Set equal to two, A and B are set equal to SUB1 and SUB2, 


and control is transferred to the loop. 


90 





b. Subroutine DAMRE(SUR1 ,SUR2,SUBI ,SUB2,SUR,SUB) 
DAMRE prints the damage to the calling side's ships 
using the same double loop approach as SHOTRE. 
See uinesmine varouchn 32 
DO LOOP 7 loops through the ships in PLATFM, 
and prints a "SUNK" statement if column 20 is equal to zero. 
If column 20 is not equal to zero, the ship is not sunk, and 
column 11 holds the number of hits. This number is then 
printed. Next COUNT is incremented, and a new page of 
output is started if it exceeds nine. 
b. Lines 33 through 38 
These lines check C, reset the variables A and B 
femousl and SUB2 and return control to DO LOOP 7 if it is 
equal to one. Otherwise control is returned to STATUS. 
5. Subroutine STATIN(AC1 ,AC2,SUR1 ,SUR2,SUB1 ,SUB2,NAMEWP ) 
This subroutine controls the individual platform 
displays/command acceptance subroutines which are divided 
between aircraft and surface ship/submarine sections. It is 
called by subroutine STATUS and calls STATAC, STATSS, NAMEIN, 
INVERT1 and INVERT6. 
ae oines Le througn 30 
This section of code prints the heading telling 
the player that he is in the individual platform status 
section and to enter the name of the desired platform. It 
utilizes INVERT6 to preprocess the entry, then calls NAMEIN 


to convert the name of the desired platform to a row index. 
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If the name is either incorrect (spelling or otherwise) or 
belongs to the opposing player, a zero index is returned. 

If the index returned iS zero the program prompts the player 
to reenter a valid name. 

Due bines 31 through 36 

This section of code determines if the row index 
of the desired platform is an aircraft or a surface ship/ 
Submarine and passes control to either STATAC or STATSS 
respectively. Again, there is a check against the other 
players platform being processed. 

c. Lines 39 through 47 

This section of code lets the player continue 
with another platform selection or return to the status 
menu selection. 

6. Subroutine STATAC (USED, INDEX , INAME ,NAMEWP ) 

This subroutine is all input/output related and 
displays a selected aircraft's individual status to include 
results of assigned combat missions, current speed, current 
location, results of search misSions and damage inflicted on 
the aircraft. It accepts and processes all game turn command 
mipucs for aircraft. USED is utilized by subroutine STATIN 
and is a flag set to indicate that STATAC has executed. 
INDEX is the PLATFM array row index of the desired aircraft. 
INAME is an array that contains the selected aircraft's name. 


NAMEWP is the array that contains all weapon system names. 
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Subroutine STATAC is called by subroutine STATIN and calls 
INVRT1, INVRT6 and DISTAN. 
Planes slo) barousgihn 1S 
This section of code determines if the aircraft 
memeurrently flying. If not, control is transferred to 
35 (line 99), thus bypassing prior game turn status. 
b. Lines 25 and 26 
Displays current location and speed. 
Cam Ginesmec;, througn 39 
This section of code displays results of combat 
action undertaken. It displays the target location and 
weapon employed. If weapon system one (two) was used then 
PeerrM column 23(24) will contain one to eight. If it is one 
thru six, then a non-torpedo weapon has detonated and the 
probability of a hit is that number out of six. A seven 
indicates a torpedo detonated while a eight indicates the 
torpedo missed and; therefore, did not detonate. 
d. Lines 40 through 62 
This section of code displays the search mission 
designated and the DO 20 loop identifies and displays all 
detections by the designated aircraft. 
e. Lines 63 through 71 
This section of code utilizes the weapon row 
index in PLATFM to display the available weapon system(s) 


name and maximum range. 
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f. Lines 77 through 92 
This section of code accepts and processes an 
entered target location and weapon system number (one or 
Grow. This data is entered in the appropriate section of 
the BUFFER array. It then transfers control to 40 (line 
107) bypassing the section that launches a non-flying 
aircraft. 
g. Lines 99 through 101 
Launches a non-flying aircraft by setting 
column i1 of PLATFM equal to one. 
h. Lines 107 through 116 
This section of code accepts and processes 
entered speed and future location inputs. This data is 
entered in the appropriate section of BUFFER. 
i. Lines 122 through 128 
This section of code calls DISTAN to determine 
the distance between future location and current location. 
It then checks to insure current maximum speed is not 
exceeded and that the distance computed is less than, or 
equal to, the speed command. If in error, control is 
transferred to 40 (line 107) and prompts the player to 
reenter speed and future location. 
j. Lines 134 through 143 
This section of code accepts and processes the 
search command. It insures that the aircraft has a speed 
command of zero. If not, it transfers to 50 (line 134) and 


the player restarts this section. 
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k. Lines 149 through 166. This section of code 
displays all entered and processed combat, move and 
search commands. 
7. subroutine STATSS (USED ,INDEX, [NAME ,NAMEWP) 
Subroutine STATSS is all input/output related and 
displays a selected surface ship/submarine individual 
status; to include results of assigned combat missions, 
current speed, current location, results of search missions 
and damage inflicted on the platform. It accepts and 
processes all game turn command inputs for surface ship/ 
Submarines. USED (line 18) is utilized by subroutine STATIN 
as a flag to indicate that STATSS has executed. INDEX is 
the PLATFM row index of the desiredplatform. INAME is an 
array that contains the selected platforms name. NAMEWP 
is the array that contains all weapon system names. 
a. Lines 24 through 29 
This section of code displays the platforms 
current position and speed, determines from PLATFM(x,11) how 
many times the platform has been hit and displays the number 
of hits received during the game. 
b. Lines 35 through 42 
This section of code searches the HIT array and 
displays hits (including type weapon), that the platform 
received during the previous game turn. 
c. Lines 48 through 62 
This section of code displays results of combat 


operations undertaken. It displays the target location, 


7 





then the DO 20 loop determines the weapon Br erenCe) employed 
and displays employed weapon name and results of that attack 
in the same fashion that section IV.F.6.c does. 
d. Lines 68 through £00 
This section of code displays the results of 
the search mission(s). The DO 40 loop processes the DETECT 


array to display type platform, location, method and target 


range. 
SemlbeneccetOCeGhirouch lis 
This section of code first determines if the 
platform has been sunk (during the previous game tum). If 


so, the subroutine bypasses the command input section and 
returns. The DO 51 loop displays weapon system(s) name(s) 
and range(s) available to the platform. 
f. Lines 124 through 142 

This section of code accepts and processes an 
entered target location and weapon system number for combat 
operations. This data is entered in the appropriate section 
of BUFFER. Column one of BUFFER is set to one if there is a 
combat mission assigned. Then column six, seven and eight 
are set to negative one depending on whether or not weapon 
System number one, two or three is employed. The program 
then determines if the player entered another weapon system 
number. If so, it transfers control to 60 (line 133) to 


accept another weapon system number. 
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g. Lines 148 through 169 
This section of code accepts and processes 
entered speed and future location inputs for movement. It 
then calls a utility subroutine, DISTAN, to determine the 
distance between future location and current location and 
checks to insure current maximum speed is not exceeded and 
that the distance computer is less than, or equal to, the 
speed command. If incorrect, the program transfers to 70 
(line 148) and restarts this section. 
Debancc 475 through 165 
This section of code accepts and processes the 
Search command. If both active and passive Search is 
designated (three) and the flag to allow that is not set 
(PLATFM(x,24) equaling one) then control is transferred to 
Seeline 175) to restart this section. The search command 
is then placed in the BUFFER array. 
i. Lines 191 through 214 
This section of code displays all entered and 


accepted combat, move and search commands. 


H. COMBAT EXECUTION SUBROUTINES 

The subroutines described in this section control and 
execute one complete game turn after the players have 
entered all their commands. The control, execution flow 


and layering of subroutines in this section are as follows: 


oie 





LEVEL 


CONTRL 
COMBAT 

Be, 
DISTUR 
RANGE 

ere 

DAMREC 

MOVE 
SEARCH 

ADVSUB 

AEVSUB 

PDVSUB 

PEVSUB 

DE AID eG 


1. Subroutine CONTRL 
Subroutine CONTRL controls the execution of combat, 
move and search phases for one game turn. It initializes 
all working arrays at the appropriate times. Subroutine 
CONTRL is called by the main program when all data display, 
command entry is complete and the players decide to execute 
the current game turn. It calls subroutines COMBAT, MOVE, 


SEARCH and utility subroutine DISTAN. 


98 





a. Lines 18 through 36 
This section of code initializes the disturbed 
water array WATER and the hit array HIT in the DO 10 loop. 
In the DO 20 loop it removes previaus combat operations and 
disturbed water zone entries. The DO 21 loop is executed for 
aircraft only and removes combat result information from 
PLATFM. The DO 22 loop removes combat result information 
from PLATFM for surface ships and submarines. 
b. Lines 42 through 46 
This section of code checks for non-flying 
aircraft and, for any, takes the future location of the parent 
Emp trom the BUFFER array and puts that in the aircraft's 
muomre Location in BUFFER. 
c. Lines 52 through 66 
The DO 25 loop overlays the array BUFFER over 
Selected columns of PLATFM. BUFFER contains the individual 
combat assignments, movement commands and search commands 
for the current game turn. Aircraft only carry one weapon 
System and therefore have no need to utilize columns six, 
seven and eight of BUFFER which activates the individual 
Surface ship and submarine weapon systems. 
d. Lines 68 and 69 
Executes all combat and movement 
e. Lines 75 through 78 
The DO 30 loop initializes the detect array. 


This must be done after executing COMBAT and MOVE but before 
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executing SEARCH as SEARCH makes entries in DETECT. 
Subroutine COMBAT utilizes those entries. 
f. Lines 83 through 95 
This section of code compares all current 
platform locations with the locations of disturbed water 
zones in the WATER array. The DO 40 loop sets NUM equal to 
the number of disturbed water locations. The DO 70 loop 
increments through all platforms bypassing ones that are either 
sunk or have had a disturbed water zone recorded previously 
in the current game turn. The DO 60 loop determines the 
distance from a platform to every disturbed water location 
and, if the distance is zero or one, places a disturbed 
water marker, a three, in column six of the array PLATFM. 
Pee oine 1 Ot 
Executes the search phase by calling SEARCH. 
h. Lines 107 through 119 
This section of code reinitializes the BUFFER 
array prior to exiting the execution stage of the game turn 
and prior to accepting future entries. BUFFER(x,4), future 
location, is set equal to the current position in case a 
player does not issue a move command for that platform. 
2. subroutine COMBAT 
This subroutine executes all phases of air/surface to 
Subsurface, and subsurface to surface/subsurface combat for 
all platforms. It is called by CONTRL and calls FIRE, FILHIT 
and DAMREC. 
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anes Letmrousn 17 
The DO 30 loop extends to line 48 and executes 
the basic combat assignments for all platforms excluding 
ones that are sunk, and ones that do not have combat 
assignments. Line 17 directs control to either aircraft or 
surface ship/submarine combat execution. 
bree inics «24. throuln 31 
This section of code executes a combat assignment 
fOr an aircraft. WEPIND is the column in PLATFM that con- 
tains the weapon system row index (for the weapon data array 
WEP) of the weapon system to be employed. WEPSUP is the col- 
umn in PLATFM that contains the weapon resupply value for 
the employed weapon system. Subroutine FIRE is called, 
passing ATTK(row index of attacking platform), WEPIND, and 
WEPSUP. IHIT (zero or one, a one if the attack resulted in 
a hit), ITAR (row index of the target platform) and PRHIT 
Herobability of obtaining a hit) is returned by FIRE. PRHIT 
is expressed as an integer between one and six. xX is the 
weapon row index. Lines 27, 28 and 29 place the combat 
mesnlts into column 23 or 24. If the attack was successful, 
Subroutine FILHIT is called passing the attacking platforms 
row index, weapon system row index and target platforms row 
meesx in that order. FILHIT records the hit. It then 
transfers control to the damage assessment section. 
C. Lines 37 through 48 
This section of code executes a combat assignment 


for a surface ship/submarine. WEPIND and WEPSUP are as 
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described above in the aircraft section. The DO 20 loop 
searches the weapon system row index columns looking for a 
negative row index which signifies a combat mission for that 
weapon system. When encountered, the negative sign is removed 
and subroutine FIRE is called. As previously stated above, 
ATTK, WEPIND, and WEPSUP are passed and IHIT, ITAR and PRHIT 
are returned. The combat results are entered in the PLATFM 
array and subroutine FILHIT is called if the attack was 
successful. 

d. Lines 54 through 59 

The DO 40 loop calls subroutine DAMREC to process 
the damage resulting from the game turn. It passes the row 
index of the hit platform. 

PEP imMecmoomtunrouch 79 

The disturbed water array WATER contains the 
Mmeeauions Of all detonations that occurred during the current 
game turn and may contain multiple locations from multiple 
maGracks on a target. This section of code removes all 
duplicate locations and closes up the array WATER. 
ome Subroutine FIRE (ATTK WEPIND .WPLEFT, THIT, [TAR, PRHIT) 

Subroutine FIRE executes a weapon firing, computes 
weapon and target range and calculates a random number to 
compare against a computed probability of a hit to determine 
hit or miss. It also determines disturbed water locations. 
ATTK is the attacking platform's row index. WEPIND is the 


employed weapon row index. WPLEFT is the weapon resupply 
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value. IHIT is one or zero, a one Signifying a hit was 
obtained. ITAR is the targets row index. PRHIT is the 
computed probability of a hit. Subroutine FIRE is called by 
Subroutine COMBAT and calls subroutine DISTUR, RANGE, DISTAN 
and RANDOM. 
ae bane 16 
=. Immediately returns to COMBAT if the associated 
weapon reSupply iS zero. 
b. Lines 24 through 38 
This section of code decrements the associated 
weapon resupply by one. The DO 10 loop sets ITAR equal to 
the row index of a platform whose current location matches 
the attackers combat location. If there is not a match, 
the subroutine returns. 
ec. Lines 37 and 38 
Subroutine DISTUR is called to place a disturbed 
water marker into WATER using the target's future location. 
d. Lines 44 through 49 
The DO 15 loop sets Y equal to one if the 
attacker previously detected the target. If not, the sub- 
routine returns. 
e. Lines 55 through 59 
This section of code insures that only a weapon 
capable of attacking that particular type of target is 
employed, if not, the subroutine returns. It then checks 


to insure that air/surface platforms only attack subsurface 
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platforms and that subsurface platforms only attack surface 
or subsurface platforms, otherwise the subroutine returns. 

jilinessoo through 75 

This section of code determines target range 
(DIST) from DISTAN, weapon accuracy (ACC) and weapon range 
(RANG) from RANGE. If target range exceeds weapon range, 
control is transferred to 40 (line 84) to inform the players 
memciat tact. It then calculates the probability of a hit 
by subtracting the targets defense value (PLATFM(ITAR,19)) 
from the weapon accuracy (ACC). By definition, if ACC equals 
memee, the probability of a hit is one out of six. The 
program calls RANDOM and generates an integer random number 
from one to six. If PRHIT is greater than or equal to the 
random number, a hit occurs(IHIT equal to one). 

Gf. Linees2 

DISTUR is called to place a disturbed water 
marker at the targets future location if the weapon was a 
torpedo and a hit. 
4, Subroutine DISTUR(LOCAT) 

Subroutine DISTUR utilizes LOCAT which is the hex 
address of a weapon that has detonated and caused a disturbed 
water zone. It files it in the disturbed water array WATER. 
It is called by subroutine FIRE and does not call any 


subroutines. 
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Peeebines £3. unreuen 15 
This section of code finds the next unused row 
of the array WATER. 
bee Lines 16 through 18 
This section of code tells the player there has 
been over 100 detonations, therefore the players cannot be 
certain which detonations will cause disturbed water zones. 
It then returns to subroutine FIRE. 
c. Line 19 
ii there iS room im WATER, the location of the 
disturbed water is entered. 
5. Subroutine RANGE( INDEX ,ACC , RANG) 
Subroutine RANGE utilizes weapon system row index 
(INDEX) to enter the Weapon Data Summary array (WEP) and 
pass back the weapon system accuracy (ACC) and the weapon 
system maximum range (RANG). Subroutine RANGE is called by 
Subroutine FIRE and does not call any Subroutines. 
6. Subroutine FILHIT(ATTK ,WEPON, ITAR) 
subroutine FILHIT files all ‘hits’ on surface ships 
and submarines as they occur. FILHIT is called by the 
Subroutine COMBAT and does not call any subroutines. 
a. Lines 13 through 15 
This section of code locates the next unused 


meoweot array HIT. 
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b. Lines 16 through 18 
This section of code tells the players when over 
100 hits have occured. It should be noted that if this 
happens, only the weapon result displays to the players are 
affected and that weapon results for some firing will not 
be available. The actual damage assessment and capability 
reduction is conducted regardless. 

c. Lines 19 ound 

This section of code enters the target's row 
index, weapon system row index and attacking platform's row 
index in that order. 

7. Subroutine DAMREC(TITAR) 

Subroutine DAMREC processes damage inflicted by a 
hit into the PLATFM array, and places ships that are sunk 
in the SUNK array. It is called by subroutine COMBAT and 
does not call any subroutines. 

a. Lines 18 through 22 


This section of code decrements the following 


by one: 
Column of PLATFM Identity 

Hea maximum speed 
LS ADV 
14 PDV 
IS weapon one resupply 
16 weapon two resupply 
17 weapon three resupply 
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Column 11 of PLATFM contains durability point 
losses suffered. For ease in handling internally, it is 
carried as a negative value. 

cae umes 23 through 35 

This section of code checks to see if the platform 
is still ‘alive' and ensures it had not been sunk previously 
during the current game turn. If so, the program returns 
control to subroutine COMBAT. If the platform was sunk 
during this iteration, it locates the next available row 
in the SUNK array. 

c. Lines 37 and 38 

This section of code enters the row index of the 
sunk platform into SUNK and sets the durability value of the 
platform equal to zero (PLATFM(x,20)).. This is the general 
mreator for the rest of the program. That is, if column 20 
of PLATFM is zero for any platform, the platform is ignored 
meeeall practical purposes. 

8. Subroutine MOVE 
Subroutine MOVE executes all platform movement 
except platforms that have been sunk. It is called by 
Subroutine CONTRL and does not call any subroutines. 
a. Lines 14 through 17 

This section of code replaces the current 

location (PLATFM(x,3)) with future location (PLATFM(x,5)). 


The DO 10 loop skips platforms that have been sunk. 
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oe) smbroutine SEARCH 

Subroutine SEARCH executes all phases of active and 
passive search missions after combat operations and movement 
have been executed. Note: Surface units cannot search 
against other surface units and aircraft cannot detect 
surface ships. It is called by subroutine CONTRL and call 
Subroutines ADVSUB, AEVSUB, PDVSUB, PEVSUB and DETEK. 

aeines 2oethroush. 36 

This section of code executes surface and air 

active search missions against subsurface platforms. If 
there are no surface or air platforms involved in the game, 
the program transfers to 45 (line 62). The DO 20 loop 
executes for aircraft and surface platforms with an active 
mission that are not sunk. The program calls subroutine 
ADVSUB to calculate the active detection value (ADV) for the 
searching platform. Then the DO 10 loop processes all 
Submarines, bypassing those sunk, and calls subroutine 
AEVSUB to calculate the active evasion value (AEV) and 
range (DIST) between the two platforms. If the ADV is 
greater than or equal to the AEV, there is a detection and 
Subroutine DETEK is called to file the detection in the 
DETECT array. The row indices of searcher and target, 
active/passive designation and range are passed. 

b. Lines 43 through 55 

This section of code is almost identical to the 


Section described above except that it is the passive 
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search mission that is being executed. The passive detection 
value (PDV) and passive evasion value (PEV) are substituted 
for their active counterparts. 
ec. Lines 61 through 76 
This section of code executes submarine active 
Search missions against both surface ship and submarine 
platforms. It is coded in the same fashion as above except 
that the limits of the DO loops and indices are changed to 
reflect the differing platforms. 
d. Lines 83 through 97 
This section of code executes submarine passive 
Search missions against surface ship and submarine platforms. 
It is coded in the same fashion as above except that the 
limits on the DO loops and indices have changed and it is 
executing passive vice active searches. 
10. Subroutine ADVSUB(1) 
This subroutine computes the active detection value 
(ADV) for a platform executing an active search mission. It 
utilizes I as an index to access the proper row of PLATFM. 
It is called by subroutine SEARCH and does not call any 
Subroutines. 
a, bine 15 
sets ADV equal to the active detection value for 
that platform. 
Deetine 16 through 19 
This section of code bypasses adjustments for 
damage and speed if the searching platform is an aircraft. 
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The ADV is decremented for both damage suffered and current 
speed of the platform. 

c. Lines 20 through 22 

This section of code decrements ADV for both 
erratic water conditions (ERATIC equaling one) and the 
platform being within one hex of a disturbed water zone 
(PLATFM(x,6) set to three). The ADV must be nonnegative. 

ieee ~6SUubroutine AEVSUB(I,J,DIST) 

This Subroutine calculates the active evasion value 
(AEV) for a potential target platform. I is the row index 
of the searching platform and J is the row index of the 
potential target. DIST is the distance between platforms 
ieend J. Lt is called by SEARCH and calls DISTAN. 

a. Lines 17 through 21 

This section of code determines the distance 
between platforms I and J, then calculates the AEV by 
dividing the distance by three and rounding up. Note that 
Y is a real and the AEV is one even if the distance is 
zero. The resulting AEV is then increased if the target 
m@baictorm is in a disturbed water zone (line 21). 

Men subroutine PDVSUB( 1) 

This subroutine computes the passive detection 
value (PDV) for a platform executing a passive search 
mission. It utilizes I as an index to access the proper 
platform in PLATFM. It is called by subroutine SEARCH and 


does not call any subroutines. 
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eee bane 165 
sets PDV equal to the PDV value in PLATFM. 
De dies toe throuch 20 
This section of code makes PDV adjustments for 
damage and current speed. If the platform is an aircraft 
(jine 16) this section is bypassed. Also, if the platform 
does not suffer degradation of capability due to speed 
(line 18), this section is bypassed. 
Cre mines 2i through 23 
This section of code makes PDV adjustments for 
erratic water conditions (ERATIC equaling one) and for 
being within one hex of a disturbed water zone (PLATFM(x,6) 
is set to three). The PDV must be nonnegative. 
ieee DUdroutine PEVSUB(I,J,DIST) 
This subroutine calculates the passive evasion value 
(PEV) for a potential target platform. I is the row index 
of the searching platform and J is the row index of the 
potential target platform. DIST is the distance between 
platforms I and J. It is called by subroutine SEARCH and 
calls DISTAN. 
a. Lines 17 through 21 
This section of code determines the distance 
(DIST) between platforms I and J then calculates PEV by 
mervraing by ten and rounding up. Note that Y is a real and 
the PEV is set to one even if the distance is zero. This 


PEV is then added to the evasion value (PLATFM(x,18)) and 
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and adjusted for being within one hex of a disturbed water 
zone. 

b, Lines 22 through 24 ~ 

This section of code adjusts the PEV downward 
if the platform executed a combat mission and/or was assigned 
an active search mission. The PEV must be nonnegative. If 
the target platform has a speed of zero, did not execute a 
combat mission and was not assigned an active search mission 
the PEV is defined to be six. 
fi subroutine DETEK(II,J,AP,DIST) 

Subroutine DETEK files all detections in the 
detection array DETECT as they occur. II is the row index 
of the searching platform, J is the row index of the detected 
platform, AP is one if the detection was by active means and 
a zero if by passive means, and DIST is the distance between 
the platforms II and J. It is called by Subroutine SEARCH 
and does not call any subroutines. 

‘a. Lines 14 through 16 
This section of code locates the next unused 
row of the array DETECT. 

b. Lines 17 through 19 

This section of code tells the players when 
over 100 detections have occurred, that detection and all 


future detections will not be processed as detections. 
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Cee beneszOo Chacouch .22 
imsesSeectleneot code places the row index of the 
search platform in column one, the row index of the detected 
platform in column two, the active/passive indicator in 
column three and the distance in column four of the DETECT 


array. 


Pee UTILITY SUBROUTINES 

The subroutines described in this section perform 
functions that can be considered "administrative" and not 
related to any particular part of the program previously 
discussed. 

1. Subroutine NONVRTCINPUT, OUTPUT) 

This subroutine takes INPUT which is a character 
string of numbers (70A1), discards any leading blanks and 
memerns the integer form of the string as OUTPUT. It is 
used by the program to ease the entry of numbers that would 
otherwise require restrictive format statements. All 
variables in the subroutine are integer mode and three 
integer arrays are used. NUMBER(10) is a data array that 
contains the ten primary digits, zero through nine. X(70) 
is an array used for the temporary storage of the numbers in 
INPUT. BLANK and DOT are alpha variables that relate to a 
Dlank space and a decimal point. DO LOOP 1 is a loop that 
checks each column of INPUT for blank spaces. The first 
column number that contains a character is stored in IFNUM. 


DO LOOP 3 checks the columns IFNUM through 70 of INPUT for 
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the blank or decimal point that ends the character string. 
ILNUM is set equal to this column number minus one. IFNUM 
and ILNUM are the inclusive column numbers of INPUT that 
contain information, and INUM is the total number of columns 
that contain information. DO LOOP 6 runs from one to INUM 
with I as its index. DO LOOP 5 is nested in DO LOOP 6, and 
it compares each column of INPUT to the character digits in 
NUMBER. The number of the character that matches is placed 
in X(I). DO LOOP 7 runs from one to INUM with J as its 
index, and it actually computes the number placed in OUTPUT. 
INDEX is the number of the column of X being worked on, and 
mois decremented from right to left. OUTPUT is calculated 
by multipliying X( INDEX) by a factor of ten raised to the J 
minus’one power. For example, the far right column would be 
multiplied by ten to the zero power, and added to OUTPUT. 
The third column from the right would be multiplied by ten 
to the second power or 100, and added to OUTPUT. 

2. Subroutine INVRT1i (INPUT, IPUT) and INVRT6( INPUT, IPUT 

These subroutines perform the same basic function 

which is to read a character string and return it without 
leading blanks. INVRT1 returns only the first character, 
and is used to record Y(es) and N(o) answers as "Y" and "N". 
It does this with one loop that assigns the first column of 
INPUT not equal to a blank space to IPUT. INVRT6 discards 
any leading blanks and returns the first six characters of 


a String. It is used for recording platform names. The 
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Subroutine uses a nested loop with the outside loop 
meerching for the first column of INPUT to contain 
maermation. The inside loop moves the first six columns 
faeiNeUT containing information to IPUT, and transfers 
control to the RETURN statement. 

3. Subroutines SCLASS (NAME, INDEX ,NAMEWP) and NAMEIN 


INPUT, INDEX , NAME ,AC1 ,AC2,SURL ,SUR2,SUBI1 ,SUB2 


These Subroutines compare alpha names to the names 
in arrays, and return the row index numbers of the names 
that match. SCLASS searches the 130 class names in NAMESH 
with a Simple search that just compares the first four 
columns of the arrays. If none of the names match, INDEX is 
returned as zero. NAMEIN searches the user Supplied names 
located in the array NAME. This search is more complicated 
because the row index numbers are checked to see if they 
match the rows in PLATFM controlled by the calling player. 
This prevents the wrong index number being returned if both 
Blue and Red players use the same name for a platform. 

4. Subroutine DISTAN(XX,YY,D) 

Subroutine DISTAN computes and returns a hex distance 
(D) between any two hex locations that are passed to it 
(XX,YY). It is called by subroutine STATAC, STATSS, CONTRL, 


PIRE, AEVSUB and PEVSUB. It does not call any subroutines. 


a. Lines 14 through 18 
This section of code separates the two hex 


locations XX and YY into their two components, the column 
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component the first two digits and the row component 
composed of the last two digits. 1t should be noted that 
this procedure is what limits the size of the game board. 
If the 100's in lines 14 through 17 were changed to 1000's, 
then the upper limit on the game board and in this program 
would nominally be 999 by 999. Actually, however, only the 
row index is limited to two digits. The column index is 
unlimited except for the hardware limit of the computer 
being utilized. D is initialized to zero and is the 
distance. 
Daereanes: 19 thmouch 3S 

ras section of code first compares the columns 
of the two locations. If they are equal then the distance 
is the absolute value of the difference in the row coordinates. 
If the column coordinates do not match, then through a series 
of comparisons, the row and column of the XX location is 
incremented or decremented to make it appear that the XX 
location is taking a ‘step' closer to the YY location. 

c. Lines 39 through 41 

After the 'step' is taken above, the distance is 
incremented by one and the locations are compared column to 
column and row to row. If there is no difference in the 
coordinates in either location the subroutine returns the 
Current value of D. Otherwise it transfers control to 100 


(line 19) and section b above is repeated. 


116 





Ve. METHODOLOGY 


A. INTRODUCTION 

This chapter outlines a general structure that eases and 
provides a framework for converting tactical board games to 
computer-assisted war games. The structure presented is 
based on lessons learned during the conversion of "UP 
SCOPE!." It should be remembered that the program presented 
in Chapter Vis not the result of the outline described but 
just the opposite. Although the ideas presented here were 
largely incorporated in the program, the outline itself was 
not available during programming. The experience gained 
during this effort would result aD Some changes to the 
program if the programming effort was started again. 

An effort to convert a board game to a computerized game 
must take into consideration the following five major areas: 

1. The amount of computer assistance. 

2. The rules of the game. 

3. The procedures required by the game. 

4%. The structure of the data. 

pee lhe input and output of information. 
Although each of the above areas is related; they should, 
in general, be considered separately in the specific order 


presented. 
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B. COMPUTER ASSISTANCE 
Computer assistance can be defined as the degree to 
which the computer performs the tasks previously required of 
the players. The assistance can range from just the 
calculation of hit probabilities all the way to graphic 
displays and voice input. The amount of computer assistance 
Supplied by the game is dependent on the following three 
facLors: 
1. The Programmer 

The first factor involves the programmer. His 
ability and ideas concerning a computerized game will have 
a large effect on how much of the game he decides to pro- 
gram. However, this decision is’ usually made by the 
programmer's superiors. 

2. The Budget 

One resource restriction involves the amount of 
money available for the effect. In this sense "money" 
includes equipment, as having money implies the ability to 
spend it on equipment. Budget considerations can largely be 
ignored by the programmer because he is given the parameters 
within which the assigned tasks must be accomplished. 
However, the manager must be aware of the tradeoffs between 
money and the computing capacity and speed of the computer, 
and how they will effect the amount of assistance the pro- 


gram can provide. 
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3. Time 





The time factor involved is another resource 
restriction that can effect the amount of assistance pro- 
vided by the program. The time factor can be driven by 
either the programmer or the player. Usually the degree of 
assistance is designed to minimize the player's time and not 
the programmer's, because a successful game will be played 
many times. An awkward game, which may have minimized the 
programmer's time, will waste more of the organization's 
personnel hours by forcing the players to play longer than 
need be. 

4, Result 

The assistance provided by the computerized version 
of Up Scope in relation to the board game is almost total. 
The only task required of the players, other than to be 
aware of the rules and information contained in the data 


Summaries, is to maintain the game board with ship locations. 


C. RULES AND PROCEDURES 

The rules of a board game and its procedures are closely 
related. The difference lies in the idea that rules imply 
"can" or "cannot" and therefore "should" be adhered to in 
order to play the game correctly. Rules also usually 
involve some choice on the part of the players. They can be 
broken and yet the game can go on. Procedures on the other 


hand are the skeleton of the game and involve no choice on 
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the part of the players. They give the game its framework 
around which the players make their decisions. An example 
of a rule in Up Scope is limiting the number of hexes a ship 
can move. A procedure would be the calculation of a hit 
probability and the rolling of the die to determine the hit. 
In a conversion effort the rules and procedures become 
computer code and instructions. The programmer must become 
extremely knowledgeable about them because his task is to 
translate them to computer code with no accidental changes. 

Changes in the rules and procedures can be the result 
of two things. The first is the fact that the programmer is 
restricted in some way that necessitates a change. The 
second is to improve the game in some fashion. This 
normally means a change to make the game more realistic. 
fate to coding the first computer statement, detailed flow 
charts should be prepared for each aspect of the game. 

These flowcharts will force the programmer to study and 
learn the rules and procedures of the game. They will also 
ensure the program is a "faithful" reproduction of the board 
game, or highlight any changes that have been made. 

Caution when dealing with rules and procedures is 
required. Although they are closely related, rules involve 
interpretation and choice. It should be remembered that the 
conversion of a game to a computer program in effect makes 
rules like procedures in that the player is confined to 


acting in a certain manner. The game becomes more rigid and 
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self-umpiring. The purvose of programming a board game is 
to free the players from bookkeeping and computational 
chores but in the process it adds restrictions. The 
programmer should be aware of this tradeoff, and guard 
against an overly restrictive game. 

The following are some of the changes made to Up Scope: 

1. Weapons 

“PI's procedure for handling the resupply of weapons 

involves a resupply number. This number is used to limit 
the number of weapons each platform can carry and fire. 
Each weapon can be fired once without a change in procedure, 
but after the first shot a qualifying roll of the die must 
be made to determine if the weapon can be fired again. If 
the resupply number is higher than the die, the weapon can 
be fired. If not, the weapon cannot be used until the next 
game turn when the procedure will be repeated. Every time 
the weapon is fired, its resupply number is reduced by one. 
The computer version of "UP SCOPE!" does not make the 
qualifying die roll described above because the procedure 
becomes too restrictive and unrealistic when the resupply 
number becomes small. 

2. Hits 

Renerener: change designed to increase realism is the 

amount of information supplied to the players about weapon 
results. The SPI procedure gives the offensive player 


perfect information about each shot result. The 
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computerized version gives the player the probability of a 
hit or a detonation result if the weapon is a torpedo. 
oe) evircrait 
The main change concerning aircraft is the max speed 
of some of the aircraft. They were changed to reflect 


current capabilities. 


D. DATA STRUCTURE 

Once the amount of computer assistance has been 
determined and the flowcharts have been set, the data 
structure for the game can be finalized. Of course some 
consideration must be given to the data structure while the 
above is being accomplished, but it is critical that the 
data structure be finalized in its chronological place. The 
order should have the flowcharts prior to entering the 
i[eeat line of code. Too often coding is started prematurely 
in an attempt to get "Something on paper". The proper 
sequence forces the programmer to consider all the game's 
data requirements before he commits himself to 
actual code. Any other procedure will result in numerous 
changes and additions. 

Usually the data required by the game takes one of two 
forms. The first is basic data which includes game 
parameters, system specifications and assumptions. The 
basic data for Up Scope includes the data summaries in 
Appendices B, C and D. Information presented by a scenario 


can also be considered basic data. In general basic data 
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includes all the information that is available to the 
players. The second form of data consists of the working 
files used by the program to accomplish its tasks. The 
working files will be transparent to the players. 
1. Basic Data 

Basic data is often not a primary concemrm of the 
programmer because unlike the working files it is not 
manipulated or used extensively by the program. This should 
not be the case because it is possible to improve the 
program by careful structuring of the basic data. In the 
computer version of Up Scope, the basic data is entered 
uSing data statements. AS previously mentioned, the ship 
data is entered using 18 different data arrays, one array 
for each separate piece of information. All of these 
arrays are equivalenced to SHIPDA which is used in the 
iat OLN loading. Although this seems like a great deal of 
effort when one or two large data arrays could be used, it 
Saved a great deal of time finding and correcting errors in 
coding. This was accomplished with no increase incomputing 
time or storage requirements. Another aspect of the basic 
data structure which improved the program was the ordering 
of the countries' ships in SHIPDA. The order in SPI's rule 
book has the USSR first and the United States fifth. By 
itself this seems unimportant, but several times per game 
turn a search of the arrays to find a specific ship class is 


required. Under the assumption that players will use the 
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United States' and USSR's ships more often, the search times 
were reduced by placing the ships in that order. 
2. Working Files 

The working files are of major concern to the 
programmer because they provide a focus for his efforts. 
This is true in the sense that all the actions of the 
program are directed towards accepting, manipulating, re- 
trieving and providing information. The rules and 
procedures are closely related to the structure of the 
working files, and careful thought about one can create a 
Savings in the other. A good example of this is the format 
of the PLATFM array as previously shown in Figure 4. There 
were several ways to order the platforms. Blue and Red 
eomlea have been in two groups, or the order of aircraft, 
Surface ships and submarines could have been different. The 
present structure proved to be more efficient when consider- 
ing the detection procedures. UP SCOPE! allows aircraft 
and surface ships to detect submarines, and it allows 
Submarines to detect surface ships and other submarines. 
surface ships cannot detect each other, and no platform can 
detect aircraft. The structure of PLATFM allows one loop 
to process each of the two detection phases. Other PLATFM 
formats would require numerous smaller loops to accomplish 
the same task. The structure of PLATFM also provides a 
counter example. The loading of the platforms is a 


relatively efficient section because it loads aircraft 
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automatically according to the basic data in Appendix B, but 
the fact that aircraft appear first in PLATFM required a 
great deal of index and pointer manipulation in the loading 
routine. It also resulted ina gap between aircraft and 
surface ships that had to be closed before the game couldbe 
started. All of these problems could have been avoided if 
the order of the platforms had been reversed. Having sub- 
marines first and aircraft last would have caused no change 
in the procedures, but would have greatly simplified the 
loading. Unfortunately once this was discovered too many 
changes in other parts of the program were required, and 
the effort would have been counter-productive. 

The columns of PLATFM provide another double-edged 
example. The order of the information in each row is 
evidence that several additions were made after the fact. 
This has no effect at all on the program, and can be ignored 
from the player's point of view. One aspect of the row 
ordering that should not be ignored is the contiguous 
placement of certain types of information. For example, the 
placement of the ship's shot results in columns 35, 36 and 
37 allow the use of one DO LOOP to report the results of all 
the weapons. Similar ordering is used for the weapon and 
aircraft index numbers and number of each type carried by 


the platform. 
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Se Limitations 

Another aspect of data structures that should be 
considered by the programmer is the possible restrictions it 
imposes. All of the working file arrays in Up Scope are 
dimensioned to 100. This restricts the player from using 
more than 100 platforms ina game. The DETECT array imposes 
an even tighter restriction with its size of 100 because 
each platform can detect more than one ship. The choice of 
100 was largely arbitrary, and can be changed with very 
little effort. It should also be noted that exceeding the 
limits of any array causes a message to be printed 


Spteining the situation. 


E. INPUT AND OUTPUT REQUIREMENTS 

The amount and format of the information required and 
output by the program is decided largely by the degree of 
user-friendliness desired. The basic intent of this effort 
was to program a game that was very friendly. This resulted 
in numerous lines of output designed to give the player 
the ability to change his inputs and to clearly define his 
options when a selection was required from him. Unfortunately 
the overall effect is a program that is possibly too user- 
friendly because the amount of lines printed that contain 
information not directly related to the game is excessive. 
It actually slows the rate of play when a player becomes 


familiar with the game and its input requirements. 
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The above highlights the major tradeoff associated with 
input and output. A large amount of instructions and game 
information may be appropriate if the game will be played 
only a few times by each of a great number of players. 
However, a game that will be played many times by the same 
players should minimize the amount of extraneous infor- 


mation presented and requested. 
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VI. FUTURE ENHANCEMENTS AND CONCLUSION 


A. FUTURE ENHANCEMENTS 
1. Computer Assistance 

The computer assistance provided by the computerized 
game could be improved by the use of two terminals. This 
would allow each player his own console, and eliminate the 
need for passwords. It would also add an air of realism 
by physically separating the players. The present structure 
of the program is such that only minor changes would be 
required if the proper system support were available. 
Another improvement would be the use of graphic displays to 
present and maintain the game board for each player. MThis 
would eliminate the last "chore" required of the players. 

2. Rules and Procedures 

Numerous recommendations could be made under this 
category. The only limitations are the size of the computer 
and the imagination of the programmer. Of the three 
presented here, the first two would have the effect of 
making the game more realistic. The third is strictly 
procedural. 

a. Land Bases 

The current version of Up Scope does not include 

the use of land based aircraft although the SPI version 


Goes and the aircraft are loaded in the data base. The 
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addition of land bases would require a special type of 
"platform" to be loaded in the PLATFM array. The loading of 
aircraft for this platform would have to be modified by 
allowing the player to choose the type of aircraft, unless 
the programmer designed several types of bases, each with 
different aircraft. These bases could be added to the data 
base as "Ship classes” without the ability to move or be 
sunk. 

b. surface Warfare 

As designed by SPI, "UP SCOPE!" is a submarine 

warfare game. Future efforts might include the expansion of 
the game to include surface warfare as well. This type of 
change would involve a great deal of work because an entirely 
new game would result. 

c. Game Board 

One procedural improvement to the game would be 
computerized control of the playing areas. A check could be 
programmed to ensure neither player moved his ships beyond 
the area dictated by the Scenario. This would eliminate the 
need for the "gentleman's agreement" to stay within the 
Specified area. 
See input and Output 

Although the amount and format of input and output 
is determined by the type of player, the suggestions below 
would improve the game for both the expert player familiar 


with the instructions and the new player. 
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Seeeelautorm Loading 

The procedure for the initial loading of ships 
requires three Separate lines of information to be input. 
All three pieces could be entered on one line with the use 
of a Subroutine like NONVRT. The subroutine would be 
required to break a string of characters into three separate 
"words" with each word a different format or mode. These 
"words" could then be assigned to the appropriate variables. 
This procedure could be used in other parts of the program 
as well. 

bee wercrats Loading 

Every time a Ship class that carries aircraft is 
loaded, the program automatically loads the aircraft and 
asks the player to input a name for each aircraft. This 
procedure becomes quite lengthy when more than a few 
aircraft are carried. It would decrease the loading time if 
the players were given the option of letting the program 
Supply names for the aircraft based on the user-Supplied 
name of the ship. For example, a Virginia class ship named 
GINNY could have its two Sea Sprites named GIN1 and GIN2. 
This change would not be too difficult to make, using 


character manipulation in the aircraft loading routine. 


eae CONCLUS LON 
Although the outline presented in Chapter V does not 
provide a detailed checklist including step by step 


instructions for converting a tactical board game, it is 
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entirely sufficient. More detail would not necessarily be 
an improvement. As it is, the outline will provide the 
programmer contemplating a conversion a great deal of 
assistance. It supplies a structure that will guide and help 
organize his thoughts and efforts. If the outline had been 
Meailable prior to the conversion of "UP SCOPE!", it would 
have resulted in the improvements_discussed in Chapter V, 
and it would have saved a great deal of time spent 
reprogramming routines that had to be changed because they 
feeenot ‘fit’ the rest of the program. The outline also 
provides a framework for future enhancements to the program. 
The military student of war gaming and the programmer 
required to convert a board game will find this thesis 
highly beneficial. It not only provides a structure that 
will help the programmer, it gives the student some 
knowledge about designing, developing and programming war 


games that are highlighted by actually playing "UP SCOPE!. 
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APPENDIX A 
SPECIFIC SCENARIOS 


A. SCENARIO RESTRICTIONS 

Each of these three scenarios constitutes a distinct 

game utilizing unique forces and special rules as required. 

A scenario normally ends at the conclusion of the full 

number of Game-Turns indicated in the scenario rules; however 
any of these three scenarios may be prematurely concluded 
during the victory determination phase (at the end of the 
game-turn) if any of the following conditions are satisfied. 

1. All of the participating surface ships have been 
Sunk or have exited the map boundarios. 

2. All the submarines have either been sunk or have 
exited the map boundaries. 

3. Either played has achieved a major victory and the 
opposition desires to terminate the game. 

During the three scenarios that follow, one player is 
designated the "Attacker" and the other the "Defender". The 
attacker's mission is generally to inflict the maximum 
possible damage on the defender's platform(s). The defender's 
mission is generally to ensure that his platform(s) exit from 
the map boundary without suffering any damage and/or to 
inflict the maximum possible damage on the attacking 
Platform(s). Either players platform's are permitted to 


exit the map boundaries but they may not later reenter the 


132 





game. It should be noted, however, that the defender 
receives final Victory Points for the durability value of 
each defending platform remaining on the map at the con- 
clusion of the game, if there are no attacking platforms 


present on the map at the end of the game. 


B. SCENARIO VICTORY DETERMINATION PROCEDURE 

1. At the beginning of the game utilizing one of these 
three scenarios, the defender records the total durability 
value of all platform(s) under his control and records 
mes initial Victory Point Total. 

2. At the end of the designated number of game turns, 
the defender records the total erence value for all 
platform(s) under his control which has exited the 
destination map boundary as specified in the scenario 
utilized. 

3. The total derived above is incremented by one for 
each durability point of damage inflicted on the opposing 
platform(s) during the scenario played. 

4, The total derived above is the final victory point 
total and is then divided by the initial victory point total 
and expressed as a percentage. This is the victory percentage 
ratio. The winner and level of victory achieved are then 


obtained from the following: 
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Victory Percentage Level of 


Racca Veiner Victory 
200% defender Major 
100 to 199% defender Minor 
50 to 99% attacker Minor 
1 to 49% attacker Major 
0% attacker Total 


fee SCENARIOS 
1. Here it Comes, Chicago! 

aemocenerio description. On April 2, 1982, a 
Russian Delta class ballistic missile submarine is cruising 
off the northeast coast of the United States. For the last 
ten days the Soviet crew has been aware of, and hounded by, 
an American task force of two Spruance class destroyers and 
one Knox class escort. For the past 24 hours all platforms 
have been on special alert as the two superpowers approach 
the brink of nuclear exchange. Should hostilities commence, 
the Delta will attempt to obliterate a large chunk of real 
estate centered at Chicago! 

Dee Date: sApril 2, 1982 

c. Water condition: Normal 

d. Map format: 33 by 45 hexes 

e. Game length: Ten Game-Turns 

f. Special Rules: 

(1) During the command phase of each game turn, 


the U.S. player rolls a die keeping the result from the Soviet 
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player. No platform may execute a combat mission until a 
six has been rolled. Once the six is rolled, all surface 
platforms may be assigned a combat mission according to the 
standard game rules. Once the U.S. player executes a combat 
mission, the Delta may be assigned combat missions according 
to the standard game rules. 

(2) The Sea Sprite (Lamps) helicopters are not 
considered operational during this scenario. 

(3) No platform may exit the board boundary 
during the scenario. 

(4) If the Delta has not been sunk by the end 
of the tenth game turn, the U.S. player automatically loses 
both the game and Chicago. 

g. Soviet/defender: One Delta class ballistic 
missile Submarine; initial deployment anywhere within three 
hexes of hex 1723. 

h. U.S./attacker: Two Spruances class destroyers, 
one Knox class escort deployed anywhere within 15 hexes of 
the western board boundary. 

2. NATO and the Denmark Strait 

aeeecenario Description: in order to interdict 
NATO shipping during periods of hostilities, Soviet sub- 
marines must transit several straits all of which are 
patrolled by NATO warships. An undeclared "hot" war 


commenced today, 26 June 1982. 
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A flotilla of Soviet submarines stationed in 
the Greenland Sea has been directed to move south of the 
Arctic circle for passage into the Atlantic. Most have 
orders to transit between Iceland and the Faeroe Islands. 
However, some attempt to make a more treacherous transit 
between Iceland and Greenland - through the Denmark Strait. 
NATO is rapidly deploying an ASW hunter-killer task group 
tasking them to intercept and destroy all submarines 
transiting the Denmark Strait. The task group consists 
of U.S., West German and Great Britain destroyers. This 
NATO task group must attempt to prevent the Soviets from 
making a successful passage into the Atlantic where their 
cruise missiles would wreak havoc on NATO shipping. 

hee Date: June Zo, 1962 

Ce Water condition: Normal 

d. Map format: 33 by 90 hexes 

e. Game length: 20 game turns 

f. Special rules: The scenario automatically ends 
if at the end of any game turn either all the Soviet 
Submarines have been sunk or exited off the western 
board boundary. 

g. Soviet/defender: At the start of the scenario 
the Soviet player privately rolls a die three times, for 
each roll of four or less the player controls an Echo class 
Submarine. The submarine mission is to transit the playing 
Surface from east to west. The Submarines start anywhere 


within five hexes of the eastern board boundary. 
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h. NATO/Attacker: One U.S. Spruance class destroyer, 
one West German Hamburg class destroyer and one Great Britain 
Leander class destroyer. The three are deployed anywhere 
within three hexes of the western board boundary. 

3. Sink the America 

a. Scenario description: Soviet submarines stalk 
Meee aircratit carriers all over the world. In the event of 
hostilities, the Soviets can be expected to immediately en- 
gage our forward deployed big-deck aircraft carriers. In 
this scenario, the USS America is proceeding towards the 
Middle East war zone escorted by two modern cruisers and 
one escort, 

ba Dace: July +, 1961 

Seeewaver Conditions: Erratic 

d. Map format: 33 by 90 hexes 

e. Game length: 20 game turns 

f. Special rules: The aircraft aboard the USS 
America are not considered operational during this scenario. 
The helicopters aboard the cruisers and escort are oper- 
ational. The scenario automatically ends during the 
Victory determination phase if the USS America exits the 
eastern board boundary or if both Soviet submarines are 
Sunk. 

g. Soviet/attacker: Two Charlie class Soviet 
Submarines deployed anywhere within ten hexes of the 


eastern board boundary. 
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he. U.s./defender: Uss America, America class 
aircraft carrier deployed anywhere on the western board 
boundary, at least tex hexes from both northern and southern 
board boundaries. USS Virginia, Virginia class cruiser; 
USS South Carolina, Virginia class cruiser; USS T C Hart, 
Knox class escort; cruisers and escort are deployed within 


5 hexes of the USS America. 


ioe 





NO: 


APPENDIX B 
SHIP DATA SUMMARY 


INDEX NUMBER OF SHIP CLASS 


SHIP CLASS: NAME OF SHIP CLASS 


SP: 
AD: 
PO: 
SS: 
SD: 
EV: 
DE: 
DU: 


MAX SPEED 

RACTIVE DETECTION VALUE 

PASSIVE DETECTION VALUE 

ACTIVE AND PASSIVE SIMULTANEQUS SEARCHES (Q-NOT POSSIBLE. 1-POQSSIBLE) 
SPEED GEGRADATION OF PASSIVE SONOR (0-DEGRADATION, 1-NO JEGRADAT ION) 
EVASION VALUE 

DEFENSE VALUE 

DURABILITY POINTS 


NOxWEAPON: NUMBER AND TYPE OF WEAPON CARRIED 
NOxAITRCRAFT: NUMBER AND TYPE OF AIRCRAFT CARRIED 


NO SHIP CLASS SP AD PO 5S SD EV DE DU NOxWEAPON NOxAITRCRAFT 


UNITED STATES 


AIRCRAFT CAHRIERS 


1 NIMITZ 3 000 0 2 2 3 6=SEA KING 
6=™VIKING 
2 AMERICE So°3° 4. 0 OF 2 2 3s 6«SEA KING 
S=xVIKING 
3 KITTY HAWK 3.05048 0 1, 2 3 6=xSEA KING 
6*VIKING 
WY FORESTAL 3S On O°°G. G@ 1 2° 3 6=«SEA KING 
S=VIKING 
S MIDWAY S400" G0"), 2 3 6=™SEAR KING 
6=VIKING 
6 ENTERPRISE S G6 0 G 2 e2e 3 6«SEA KING 
6S«VIKING 
CRUISERS 
7? VIRGINIA 3.5 5 1: 1 YY 3 2@ YxASROC exSEAR SPRITE 
YeMK U6 
6 CRLIFOFNIA 3.5 & 1 | 4 B 2S SxASROC 2xSEA SPAITE 
3*MK Y6 
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NO 


10 


I. 


15 


16 


SHIP CLASS 


TRUXTON 


BELKNAP 


BRINBRIDGE 


LEAHY 


ALBANY 


CHICAGO 


LONG BEACH 


CLEVELAND 


DESTROTERS 


1? 


18 


19 


20 


2) 


ee 


23 


ey 


REGIS 


SPRUANCE 


MITSCHER 


FORREST SHERMAN 


COONTZ 


CHARLES F. ADAMS 


CARPENTER 


GEARING 


Sf HOLE SSs sh EV DE DU 
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NOxWEAPON 


SxASROC 
3xMK U6 


3x ASROC 
UxMK 8&6 


5» ASROC 
UxMK 8&6 


SxASROC 
UxMK &6 


5xASROC 
UxMK 86 


S*xASROC 
YxMK &6 


5xASROC 
YxMK &6 


S*xASRAC 


YmMK 46 
S»xASROC 


SxASROC 
UxMK &6 


SxASROC 
UxMK &6 


SxASRGC 
UxMK 6 


SxASROC 
UxMK U6 


5SxASROC 
UxMK 86 


SxASROC 
UxMK 46 


NOxAIRCRAFT 


exSEA SPRITE 


1xSEA SPRITE 


1xSEA SPRITE 


1xSEA SPRITE 


1xSEA SPRITE 


2xLAMPS MK ITI 


1xSEA SPRITE 





NO SHIP CLASS SP AD PO SS SD EV DE DU NOxWEAPON NOxAIRCRAFT 


FRIGATES 
25 OLIVER H. PERRY 3 5 5 1 131 Y 2@ 1 YxekK YEG 2xSEAR SPRITE 
26 KNOX e 5 W¥ 2: 1: Y |S 1 SxKASROC 1xSEA SPRITE 
QxMK YS 
27 BROOKE 2 5 48 1 12 4 2@ 1 S»ASROC I1xSEA SPRITE 
QeMK Y6 
28 GAACIA e 5 & 1 12 48 2 1 SxASROC I1xSEA SPRITE 
QeMK U6 
SUBMARINES (BALLISTIC MISSILE) 
239 TRIDENT 3 05 0 1 5 3 2 YxMK 4B 
30 LAFEYETTE en5 01 4 2 2 &xMK 4S 
31 ETHAN ALLEN eons 01 4 2 2 UmHK 48 
32 G. WASHINGTON 205 01: 4 2 2 YxmMkK U8 
SUBMARINES (ATTACK) 
33 LOS ANGELES 3 5 5 1 1 85 8 2 3xSUBROC 
e UxMK 8 
34 NARRWHAL 3 4 5S 2? FY 5 38 2 3xSUBRGOC 
YxMK YB 
35 STURGEON 3 ¥ 5 1 1 §5§ 3 2 3xSUBROC 
YxMK 8 
36 PERMIT 3 4 5 1 1 YY 38 2@ 3xSUBROC 
YxMK V8 
37 TULIBEE e Y 5 ££ 1 58 3 2 38xSUBROC 
UxMK 48 
388 SKIPJACK e 3 §Y 0 C0 2 2 2 3xSuUBRBC 
YxeMK WB 
39 SKATE e 3 §¥§ O@ QQ 2 2 2 3SUBRBC 
YeMK YB 
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NO SHIP CLASS 


SOVIET UNIGN 


AIRCRAFT CARNIERS 


YO KIEV 


CRUISERS 


41 MOSKVA 


We KARA 


43 KARESTA 


YY KYNDA 


DESTROYERS 


uS KAIVAK 


46 KANIN 


YU? KOTLIN 


48 KASHIN 


U9 SKORY 


FRIGATES 


50 MIRKA 


31 PETYA 


SrenuerUess SO EV DE DU 
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NOxWEAPON 


S=SSN-14 
6=»MBU-2500A 
re 


3xFRAS-1 
6»xMBU-2500A 
Yx21* 


UxSSN-14 
6»MBU-2500A 
YxDC 
YxSSN-14 
6«MBU-2500A 
uxDC 


6xMBU-2500A 


UxSSN-14 
6»MBU-25008A 


6»xMBU-2500A 


6»MBU-2SO00A 
uYxDC 


6»MBU-2S00A 
6»MBU-4USOOR 
YxDC 


WDC 


7xMBU-2500A 
Ux 16" 


7»MBU-2500A 


NOxATRCRAF T 


10xHORMONE 


S*xHORMONE 


1x HORMONE 


1xHORMONE 





NOG SHEE ASS SP AD POD SS SD EV DE DU NOxWEAPON NOxATACRAF T 


S2 RIGA 3 3 4 O DOD HY 1 1 §xMBU-2500A 
WDC 


SUBMARINES (BALLISTIC MISSILE) 


so DELIA a ue sO 0 4 S 2 Usn2i~ 
SY YANKEE 245 090 3 3 2 Yai" 
95 GOLF eee Oe OO) 6S Dl Ue 2” 
56 HOTEL ese 0 GO 3.2 2 Uni” 


SUBMARINES (ATTACK) 


57 CHARLIE 3 YW 5 O O YW 8B 2@ I1*SSN-7 
Yx21” 
S58 VICTOR uy 5 0 0 4 38 2 Yr2i* 
59 ECHO e 3 & 0D O0 2 2 2 1*SSN-3 
Yx2l* 
60 NOVEMBER e344 6060 22 2 3x2)" 


GREAT BRITAIN 


CRUISERS 
61 INVINCIBLE S753) 0 G3 2 é 10%SEA KING 
62 BRISTOL a3 4. O GO 3 2 2 SIKARA 1xWASP 
6=LIM8G 
DESTROYERS 
63 WEAPON 3 5 5 0 O 4 2 1 4HxMK 46 2eL YNX 
64 SHEFFIELD | 3 4 4 0 O 4 2 1 YxMK 46 1 LYNX 
65 AMAZON 3 4 4Y DO Y 2 1 YxMK 46 1™L YNX 
66 LEANDER 3 3 4 0D QO Y 2 1 Gxt 148d 1»WASP 
UxMK 46 
67 ROTHESAY 3 3 4 DO 4 2 1 6xLInBO 1xWASP 
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NO 


68 


69 


70 


i) 


te 


SUBMARINES (BALLISTIC MISSILE) 


73 RESOLUTION 


SUBMARINES (ATTACK) 


74° SWIFTSURE 


75 


76 OREADNOUGHT 


47 


SHIP CLASS 


TRIBAL 


LEOPARD 


SALISBURY 


BLACKHOUD 


WHITBY 


VALIANT 


OBERON 


CANADA 


DESTROYERS 


78 


79 ANNAPOLIS 


80 ST. LAURENT 


81 MACKERSIE 


82 RESTINGOUCHE 


TRIBAL 


Speneere so SR EV BE DU 


3 


2 


3 


= 


4 


os 
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0 


0 


0 


0 


4 


2 


2 


] 


NOxWEAPON 


6xLIMBO 


6xLIMBO 


6xLIMBO 


6LIMBO 


6=xLIMBO 


YxTIGERFISH 
YxMK 20 


UxTIGERFISH 
YxMK 20 


Ux TIGERFISH 
UxMK 20 


WUxTIGERF ISH 
UxMK 20 


UxTIGERFISH 
UxMK 20 


UmMK 46 


UxMK 46 
UxtL IMBC 


UxMK 46 
Yl IMBO 


UxMK 4&6 
S=LIMBO 


UxMK 46 
S=LIMBO 


NO»xAIRCRAFT 


1xWASP 


2xSEA KING 


1xSEA KING 





NO SHIP CLASS 


SUBMARINES (ATTACK) 


83 OBERON 


RUSTRALIA 


AIRCRAFT CARNIERS 


BY MELBOURNE 


DESTROYERS 


8S PERTH 


86 DARING 


FRIGATES 


87 G.H. PERRY 


88 RIVER 


SUBMARINES (A TACK) 


8S OBERON 


FRANCE 


AIRCRAFT CARRIERS 


SO CLEMENCEAU 


CRUISERS 


91 JEANNE OF ARC 


92 COLBERT 


SmenWemOr oo.30 EV DE DU 
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NO“WEAPON 


UxTIGERFISH 
UxMK 20 


Ux IT KARA 


UxLIMBO 


UxMK 46 


3™]KARA 
YUxL1]MBG 


UxTIGERF ISH 
UxMK 20 


NOxAIRCRAFT 


S*SEA KING 


1xSEA KING 


1O“ALIZE 
SxSUPER FRELON 


6xSUPER FRELON 





NO SHIP CLHSS SP AD PO SS SO EV DE OU NOWEAPON NO»AIRCRAFT 


DESTROYERS 
93 MONTCALM Suow >. 7 1 4&Y 3 1 S»*MK LS 1xLYNX 
94 DUPERRE 3 SS.) 1 4Y 3 1 S»MK LS l»xl TNX 
9S TOURVILLE S555 1 1 Y 3 1 =S*x*MK LS lt YNX 
UxMALAFON 
96 ACON!IT 3 5 5 1 1 4& 3 1 S»MK LS 
YxMALAF ON 
6x3505MM 
97? SUFFREN 3 5 5 1 1 Y 383 1 S»MK LS 
YxMALAFON 
98 LA GALISSONNIERE 3 5 5 1 1 4&8 3 #41 YUxMK K2 lt YNX 
YxMALAF ON 
99 TARTU 3 4Y 4 OA UY 2@ 1 YxMK Ke 
6x375MM 
100 KERSAINT 3 4Y 4¥YuQoodoedg 2 1 YxMK Ke 
§»375MM 
101 CASABLANCA 3 S$ 4 1 1 4 3 +1 YxXMK K2 
YxMALAF ON 
6x375¢MM 
FRIGATES 
102 DESTIENNE Pe YW 4¥ : QO Y 2@ 1 YxMK LS 
6x375MM 
103 COMM. RIVIERE e 3 4 O00 4 2 1 4YxMK Ke 
6»x305MM 
104 SAVOYARD e 4y 4uodoOodod 2 1 YxtkK K2 
6x 305MM 
YxOC 
135 LE BOULGNNAIS e 3 4 O00 4 2@ 1 YxMK K2 
6»375MM 
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NO SHIP CLASS SP AD PD SS SO EV DE OU NOxWEAPON NOxAIRCRAFT 
SUBMARINES (BALLISTIC MISSILE) 
106 AEDCUBTABLE e 4Y &Y 1 0 4 3 2 S*MK E12] 


SUBMARINES (ATTACK) 


107 AG@STA Celie oeeleeO es) 3 ¢ S¥MK Ele 
108 OAPHNE e451 05 3 2 SMK Et2 
109 ARETHUSE e 0 4&4 O0 Q 5 QO 2 SMK El2 
110 NARVAL 2 0 4 0 0 5 QO 2 S*MK Ele 
ITALY 
CRUISERS 
111 VITTOAIO VENETO 3 3 8&8 OQ OF 3 2 2 S*MK UY 9xAB- 204 
112 ANDREA DORIA S534 OO 3) 2 2 S¥MK YY UxAB-204 
DESTROYERS 
113 AUOACE 4440 0 4 3 1 S»xMK Yu 1xSEA KING 
114 IMPAVIDO 43 4 0 0 4 2 1 S*MK UU 1xAB-204 
11S IMPETUOSO 4 2% O08 O 8 1 YJ SKK UY 
6»MENON 
FRIGATES 
116 LuPdé 3 4&4 &w QO O YY 2!@ I 5S*MK UY 
117 ALPINO e 3 4 0 1 4Y 2 YY 5S**MK UY 2xAB-204 
S=™MENON 


118 DE CHRISTOFARG e 3 & O 1 Y 2@ I S*MK UY 


6xMENON 
119 BERGAMIN: 2 3 4 0 O Y 2@ I S**MK UY 
120 CENTAURO 3 3 4 O O Y 2@ 1 S*MK UY 
6xMENON 
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NO SHIP CLASS 


121 ALBATROS 


SUBMARINES (ATTACK) 


122 SAURGO 


123 EX-TANG 


124 TOT) 


WEST GERMANY 


DESTROYERS 


125 LUTJENS 


126 HAMBURG 


FRIGATES 


127 KOLN 


128 THETIS 


SUBMARINES (ATTACK) 


129 U-206 


FS05U-205 


SP AD PO SS SD EV DE Ou 


200900 4 0 1 
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NOxWEAPON 


S=MK YY 
6xHEOGEHOG 


5x533MM 


YS 33MM 


5x533¢MM 


S=MK UY 
SxASROC 


Ux533MM 
6xBOFORS 375MM 


Yx533MM 
6»BOFORS 375M 


Yx533MM 
6xBOFGRS 375M 


S«MK 37C 


SeMK 37C 


NO=xAIRCRAFT 





APPENDIX C 
WEAPON DATA SUMMARY 


NO: INDEX NUMBER OF THE WEAPON 

NAMEs NAME OF THE WEAPON 

ACCURACY: ACCURACY RATING 

RANGE: RANGE IN HEXES 

TYPE: I1-MISSILE, 2-MISSILE/DEPTH BOMB, 3-TORPEOS, Y-DEPTH CHARGE 


NO NAME ACCURACY RANGE TYPE 
1 SSN-3 (USSR) 5 30 1 
2 SSN-7? (USSR) 5 30 1 
3 SUBROC (US) 6 25 2 
Y SSN-14 (USSR) 6 20 3 
5S 21° (USSR) 5 i> 3 
6 16° (USSR) > 10 3 
7 AK 486 (US) 6 25 3 
8 MK 37C (US, WG) 3 1S a 
9 TIGERF 1SH (GB) 6 i> 3 

10 MK 20 (GB) 3 7 3 

11 MK Ke (FR) 6 10 3 

le MK LS (FR) 5 8 3 

13 AK El2(FA) 2 8 3 

1W $33MM (1T) 5 le 3 

15 ASROC (US, GB) 6 e 3 

16 MK Y6 (US) J 20 3 

17 MK YY (US,GB,1T) 4 le 3 

18 IKARA (GB, AUS) 6 10 3 

19 MALAF ON (FR) 5 8 3 
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NOG 


20 


a | 


ee 


23 


24 


25 


26 


2? 


28 


23 


NAME 


FRAS-1 (USSR) 


MBU-2500A (USSR) 


MBU-YUSOOA (USSR) 


LIMBO (GB) 


HEDGEHOG (GB) 


375MM (FR) 


305MM (FR) 


MENON (1T) 


BOFORS 375MM (GB) 


DC (ALL NATIONS) 


6 


16 


a0 


ACCURACY RANGE TYPE 


2 





APPENDIX D 


AIRCRAFT DATA SUMMARY 


NG: INDEX NUMBER OF THE AIRCRAFT TYPE 

NAME: NAME OF THE AIRCRAFT TYPE 

She MAX SPEED 

ADs ACTIVE DETECTION VALUE 

PO: PASSIVE DETECTION VALUE 

NOxWEAPON: NUMBCR AND TYPE OF WEAPON CARRIED 


NO NAME SP AD PV NOxWEAPON 
HELICOPTERS 
1 HORMONE (USSR) 11 Yo sY I«t6* 
3x0C 


2 SEA KING (NATO) 11 YQ 4Y IxMK 46 


1xOC 
3 LYNK (NATO) 15 YY YY IxMK 46 
Y WASP (NATO) 10 3 3 I*MK YY 


Oo Seh Seattle (US) 12 4Y Y IxMK 46 


6 LAMPS MK ITIT1(US) 16 4Y YW IxMK 46 


7 WESSEX (GB) foes 3 1sHK 4G 


8 SUPER FRELON(FR) 14 Y Y  IxMK YY 


9 AB-204 (IT) 10 3 3 I™*MK 44 
FIXED WING 
10 MAIL (USSR) 24 3 3 4YxOC 
1! MAY (USSR) Simesore . 5G 
12 TRACKER (US) iS 4Y 4Y It*MK 46 
3=DC 


pos 





NO NAME SP AD PV NO»xWEAPON 


13 ORION (US) 30 Y 4Y 3xMK 46 
Yx DC 

14 VIKING (US) 35 4 sy 1*MK 46 
3DC 

15 NIMROD (US) 35 Y YY 3»MK 46 
YxDC 

16 ALIZE (FR) eu 3 3 3»MK YY 
YxDC 


a 





APPENDIX E 


PRACTICE GAME 


$ scope 
fmerCUTION BEGINS... 


THE FOLLOWING OPTIONS ARE AVAILABLE TO YOU: 


1. ZERO ANY PREVIOUSLY ESTABLISHED DATA BASE. 
eee ALT THE GAME. 
3. INITIALIZE GAME PARAMETERS AND COMMENCE PLAY. 


ENTER AN OPTION. 


>3 


YOU ARE NOW GOING TO ENTER THE BASIC GAME PARAMETERS. 

ONE WORD OF CAUTION. THE PRESENT GAME CAN ONLY HANDLE A 
TOTAL OF 100 WEAPON SYSTEMS. INCLUDED IN THESE SYSTEMS 

ARE SURFACE SHIPS, SUBMARINES AND AIRCRAFT. THE NUMBER OF 
AIRCRAFT ARE DETERMINED BY THE SHIP CLASS AS REFLECTED IN THE 
DATA BASE, AND WILL BE LOADED AUTOMATICALLY WHEN YOU SELECT 
MAE SHIP CLASS. PRIOR TO BEGINNING THE LOADING PROCEDURE 

YOU SHOULD ENSURE THAT THE TOTAL NUMBER OF EACH PLAYERS 
WEAPON SYSTEMS DOES NOT EXCEED 50. 


ENTER THE NUMBER OF GAME TURNS YOU WANT TO PLAY. 
ze 


THE WATER CONDITION (O-NORMAL, 1-ERRATIC). 
0 


fee OLLOWING INPUTS APPLY ONLY TO THE BLUE PLAYER 

Peer lLRST IS THE BLUE PLAYERS PASSWORD WHICH IS 

A MAXIMUM OF 6 CHARACTERS. THE PASSWORD IS IMPORTANT BECAUSE 
IT IS REQUIRED PRIOR TO THE INPUT OF COMBAT, MOVE AND SEARCH 
COMMANDS. IF YOU FORGET THE PASSWORD, YOU WILL HAVE TO RETURN 
TO MENU SELECTION, AND RESTART THE GAME. 


SELECT AND ENTER YOUR PASSWORD 
» blupas 


£53 





YOUR PASSWORD WILL BE -BLUPAS- . IF YOU ARE 
READY TO CONTINUE TYPE Y(ES). TYPE N(O) IF YOU WISH TO 
CHANGE YOUR PASSWORD. 


py 
ENTER THE NUMBER OF BLUE SURFACE SHIPS. 


a 


ENTER THE NUMBER OF BLUE SUBMARINES. 
>1 


ENTER THE NUMBER OF BLUE SHIPS THAT MUST 
BE DESTROYED FOR PREMATURE GAME ENDING 


2 

ECHO 

BLUE SURFACE SHIPs - 2 

BLUE SUBMARINES - HE 

NUMBER OF BLUE SHIPS DESTROYED TO END GAME - 2 


TYPE Y(ES) IF THESE VALUES ARE CORRECT, OR N(O) IF 
YOU WANT TO REENTER THEM. 


TY 


THE FOLLOWING INPUTS APPLY ONLY TO THE RED PLAYER 

ieee ikoT IS THE RED PLAYERS PASSWORD WHICH IS A 

MAXIMUM OF 6 CHARACTERS. THE PASSWORD IS IMPORTANT BECAUSE 

a7 IS REQUIRED PRIOR TO THE INPUT OF COMBAT, MOVE AND SEARCH 
COMMANDS. IF YOU FORGET THE PASSWORD, YOU WILL HAVE TO RETURN 
TO MENU SELECTION, AND RESTART THE GAME. 


SELECT AND ENTER YOUR PASSWORD. 
> redpas 


YOUR PASSWORD WILL BE -REDPAS- . IF YOU ARE 
berey TO CONTINUE TYPE Y(ES). TYPE N(O) IF YOU WISH TO 
CHANGE YOUR PASSWORD. 


2y: 


os THE NAME OF RED SURFACE SHIPS. 
QO 
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ENTER THE NUMBER OF RED SUBMARINES. 
52 


ENTER THE NUMBER OF RED SHIPS THAT MUST 
BE DESTROYED FOR PREMATURE GAME ENDING. 


»2 

ECHO 

RED SURFACE SHIPS - 0 

RED SUBMARINES - eZ 

NUMBER OF RED SHIPS DESTROYED TO END GAME - g 


TYPE Y(ES) IF THESE VALUES ARE CORRECT, OR N(O) IF 
YOU WANT TO REENTER THEM. 


DY 
YOU ARE NOW READY TO LOAD THE BLUE WEAPON SYSTEMS. 


ENTER THE BLUE PASSWORD. 
» blupas 


BLUE SURFACE SHIP NUMBER i 


ENTER A 6 CHARACTER NAME FOR THE SHIP. 
» tincan 


ENTER THE SHIP CLASS OF TINCAN 
> Sspruance 


ENTER THE 4 DIGIT HEX NUMBER OF THE INITIAL 
LOCATION OF TINCAN 

S500 

THE SPRUANCE Gijses OF SHIP HAS 1 SEA SPRITE TYPE ALIRCRAPT. 


ENTER A 6 CHARACTER NAME FOR AIRCRAFT it 
> sprul 


BLUE SURFACE SHIP NUMBER 2 


ENTER A 6 CHARACTER NAME FOR THE SHIP. 
>escort 


meee THE SHIP CLASS OF ESCORT 
» knox 
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ENTER THE 4 DIGIT HEX NUMBER OF THE INITIAL 
LOCATION OF ESCORT 


> 520 


THE KNOX CLASS OF SHIP HAS 1 SEA SPRITE TYPE AIRCRAFT. 


ENTER A 6 CHARACTER NAME FOR AIRCRAFT 1 
» knoxt 


BLUE SUBMARINE NUMBER iL 


ENTER A 6 DIGIT CHARACTER NAME FOR THE SUBMARINE. 
> lapon 


ENTER THE SUBMARINE CLASS OF LAPON 
>sturgeon 


ENTER THE 4 DIGIT HEX NUMBER OF THE INITIAL 
LOCATION OF LAPON 


> 510 
YOU ARE NOW READY TO LOAD THE RED WEAPON SYSTEMS. 


ENTER THE RED PASSWORD. 
> redpas 


RED SUBMARINE NUMBER iE 


ENTER A 6 DIGIT CHARACTER NAME FOR THE SUBMARINE. 
? ivan 


ENTER THE SUBMARINE CLASS OF IVAN 
> charlie 


ENTER THE 4 DIGIT HEX NUMBER OF THE INITIAL 
LOCATION OF IVAN 


>1510 
RED SUBMARINE NUMBER 2 


ENTER A 6 DIGIT CHARACTER NAME FOR THE SUBMARINE. 
>boris 


ENTER THE SUBMARINE CLASS OF BORIS 
november 


ENTER THE 4 DIGIT HEX NUMBER OF THE INITIAL 
LOCATION OF BORIS 


$1520 


15,6 





Eeoe CALL TO STATUS ROUTINES. ENTER THE BLUE PASSWORD. 
> blupas 


THE FOLLOWING DISPLAY OPTIONS ARE AVAILABLE TO YOU: 


. DETECTIONS OF ENEMY PLATFORMS. 
RESULTS OF WEAPONS FIRED. 
DAMAGE TO FRIENDLY PLATFORMS. 
STATUS OF FRIENDLY PLATFORMS AND INPUT OF INSTRUCTIONS. 


mF Ww mo & 


» BEGIN NEXT GAME TURN. 


SELECT AND ENTER THE NUMBER OF A DISPLAY OPTION. 
BNTER A 6 FOR A LIST OF DISPLAY OPTIONS. 


4 


YOU HAVE SELECTED INDIVIDUAL PLATFORM STATUS DISPLAY AND 
ASSOCIATED COMBAT,MOVEMENT AND SEARCH COMMAND INPUTS. 
ENTER THE NAME OF THE DESIRED PLATFORM. 


»Y tincan 


MCAN I> LOCATED AT POSITION 500 SPEED 0 
IT WAS NOT ASSIGNED A SEARCH MISSION 
TINCAN WEAPON SYSTEM(S) 


eee RANGE 
1 MK 46 20 
2 ASROC 7 


NO COMBAT ENTER N(ONE) - OTHERWISE ENTER 
TARGET LOCATION 
WEAPON SYSTEM NUMBER IN THIS FASHION 


>n 

TO SCHEDULE MOVEMENT ENTER 

SPEED 

DESTINATION IN THAT ORDER, OTHERWISE ENTER N(ONE) 
S2 

> 502 
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ENTER SEARCH MISSIONS AS FOLLOWS: 
NONE SCHEDULED 

ACTIVE MISSION 

PASSIVE MISSION 

ACTIVE AND PASSIVE 


WS 


> 3 


YOU HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT : 
NONE SCHEDULED 
DESTINATION 502 SPE D2 
ACTIVE AND PASSIVE SEARCH MISSION 


ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(O) TO RETURN TO DISPLAY SELECTION 


»>y 
ENTER THE NAME OF THE DESIRED PLATFORM 


» escort 


BeeoRT IS LOCATED AT POSITION 520 SPEED 0 
IT WAS NOT ASSIGNED A SEARCH MISSION 
ESCORT WEAPON SYSTEM(S) 


TYPE RANGE 
1 ASROC 7 
2 WK 46 20 


NO COMBAT ENTER N(ONE) - OTHERWISE ENTER 
TARGET LOCATION 

WEAPON SYSTEM NUMBER iN THiS FASHION 
yn 

TO SCHEDULE MOVEMENT ENTER 


> PEED 
DES TINATION IN THAT ORDER, OTHERWISE ENTER N(ONE) 


>2 
>» 720 


52 





ENTER SEARCH MISSIONS AS FOLLOWS: 
0 NONE SCHEDULED 
1 ACTIVE MISSION 
2 PASSIVE MISSION 
3 ACTIVE AND PASSIVE 


D1 


YOU HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT: 
NONE SCHEDULED 
DESTINATION 720 Sree 2 
ACTIVE SEARCH MISSION 


ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(O) TO RETURN TO DISPLAY SELECTION 


»y 


BNTER THE NAME OF THE DESIRED PLATFORM 


> lapon 


LAPON IS LOCATED AT POSITION 510 SPEED 0 
IT WAS NOT ASSIGNED A SEARCH MISSION 
LAPON WEAPON SYSTEM(S) 

TYPE RANGE 
1 SUBROC 25 
2 MK 48 25 


NO COMBAT ENTER N(ONE) - OTHERWISE ENTER 
TARGET LOCATION 
WEAPON SYSTEM NUMBER IN THIS FASHION 


n 


TO SCHEDULE MOVEMENT ENTER 
SPEED 
DESTINATION IN THAT ORDER, OTHERWISE ENTER N(ONE) 


Do12 
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ENTER SEARCH MISSIONS AS FOLLOWS: 
© NONE SCHEDULED 
1 ACTIVE MISSION 
2 PASSIVE MISSION 
3 ACTIVE AND PASSIVE 


22 


YOU HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT: 
NONE SCHEDULED 
DESTINATION 512 Sri 2 
PASSIVE SEARCH MISSION 


ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(O) TO RETURN TO DISPLAY SELECTION 


>y 


ENTER THE NAME OF THE DESIRED PLATFORM 
> knoxl 


KNOXL IS CURRENTLY NOT FLYING - iT IS ASSUMED YOU 
DESIRED TO LAUNCH. 


KNOX1 IS NOW BEING LAUNCHED 


MOVEMENT NOT DESIRED ENTER N(ONE) OTHERWISE ENTER 
» PEED 
DESTINATION HEX IN THIS FASHION 


> 
5 1720 


ENTER SEARCH MISSIONS AS FOLLOWS: 
OQ NONE SCHEDULED 
1 ACTIVE MISSION 
2 PASSIVE MISSION 


70 
YOU HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT: 
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NONE SCHEDULED 
DESTINATION 1720 SPEED 12 
THERE IS NO SEARCH MISSION SCHEDULED 


ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(O) TO RETURN TO DISPLAY SELECTION 


yn 


SELECT AND ENTER THE NUMBER OF A DISPLAY OPTION. 
ENTER A 6 FOR A LIST OF DISPLAY OPTIONS. 


S 5 


THIS OPTION WILL BEGIN THE NEXT GAME TURN. TYPE Y(ES) 

IF YOU HAVE ENTERED ALL YOUR COMBAT, MOVE AND SEARCH 
INSTRUCTIONS AND YOU ARE READY TO COMMENCE PLAY. TYPE N(0O) 
POO RETURN TO DISPLAY SELECTION. 


7Y 


RED CALL TO STATUS ROUTINES. ENTER THE RED PASSWORD. 
> redpas 


THE FOLLOWING DISPLAY OPTIONS ARE AVAILABLE TO YOU: 


meee De TECTIONS OF ENEMY PLATFORMS. 
RESULTS OF WEAPONS FIRED. 


DAMAGE TO FRIENDLY PLATFORMS. 


STATUSOF FRIENDLY PLATFORMS AND INPUT OF INSTRUCTIONS. 


nm Ff W WM 


BEGIN NEXT GAME TURN. 


SELECT AND ENTER THE NUMBER OF A DISPLAY OPTION. 
ee A 6 FOR A LIST OF DISPLAY OPTIONS. 
> 


YOU HAVE SELECTED INDIVIDUAL PLATFORM STATUS DISPLAY AND 
ASSOCIATED COMBAT, MOVEMENT AND SEARCH COMMAND INPUTS. 
BNTER THE NAME OF THE DESIRED PLATFORM. 


> ivan 


feoyl 





IVAN Pom lOec Ate OeAd POSslTION 1510 SPEED 0 
IT WAS NOT ASSIGNED A SEARCH MISSION 
IVAN WEAPON SYSTEM(S) 
iecP Er, RANGE 
1 SSN-7 30 
2 Zi ss 


NO COMBAT ENTER N(ONE) - OTHERWISE ENTER 
TARGET LOCATION 
WEAPON SYSTEM NUMBER IN THIS FASHION 


>n 


TO SCHEDULE MOVEMENT ENTER 
prEED 
DESTINATION IN THAT ORDER, OTHERWISE ENTER N(ONE) 


> 1 
> 1511 


ENTER SEARCH MISSIONS AS FOLLOWS: 
O NONE SCHEDULED 
1 ACTIVE MISSION 
2 PASSIVE MISSION 
3 ACTIVE AND PASSIVE 


D> 2 


YOU HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT: 
NONE SCHEDULED 
MeolENATION 1511 SeeeD 1 
PASSIVE SEARCH MISSION 


ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(O) TO RETURN TO DISPLAY SELECTION 


>y 


ENTER THE NAME OF THE DESIRED PLATFORM 


> boris 


iey2 





PORiS Is LOCATED AT POSITION 1520 SPEED O 
TT WAS NOT ASSIGNED A SEARCH MISSION 
BORIS WEAPON SYSTEM(S) 

ee B RANGE 
1 al 25 


NO COMBAT ENTER N(ONE) - OTHERWISE ENTER 
TARGET LOCATION 
WEAPON SYSTEM NUMBER elias FASTION 


an 

TO SCHEDULE MOVEMENT ENTER 

Sr RED 

DES TINATION IN THAT ORDER, OTHERWISE ENTER N(ONE) 
7 2 

pi522 


ENTER SEARCH MISSIONS AS FOLLOWS: 
0 NONE SCHEDULED 
1 ACTIVE MISSION 
2 PASSIVE MISSION 
3 ACTIVE AND PASSIVE 


> 1 


YOU HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT: 
NONE SCHEDULED 
MES PENATION 1522 SPEED az 
ACTIVE SEARCH MISSION 


ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(O) TO RETURN TO DISPLAY SELECTION 
Y 


SELECT AND ENTER THE NUMBER FOR A DISPLAY OPTION. 
Ss A 6 FOR A LIST OF DISPLAY OPTIONS. 
D 
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THIS OPTION WILL BEGIN THE NEXT GAME TURN. ‘TYPE Y(ES) 

IF YOU HAVE ENTERED ALL YOUR COMBAT, MOVE AND SEARCH 
INSTRUCTIONS AND YOU ARE READY TO COMMENCE PLAY. TYPE N(0O) 
TO RETURN TO DISPLAY SELECTION. 


Dey 


BLUE CALL TO STATUS ROUTINES. ENTER THE BLUE PASSWORD. 
> blupas 


THE FOLLOWING DISPLAY OPTIONS ARE AVAILABLE TO YOU: 


1. DETECTIONS OF ENEMY PLATFORMS. 

2) RESULTS OF WEAPONS FIRED. 

3. DAMAGE TO FRIENDLY PLATFORMS. 

4, STATUS OF FRIENDLY PLATFORMS AND INPUT OF INSTRUCTIONS. 


5. BEGIN NEXT GAME TURN. 


SELECT AND ENTER THE NUMBER OF A DISPLAY OPTION. 
Seek A 6 FOR A LIST OF DISPLAY OPTIONS. 


> 1 
SONOR SHIP 

DETECTING TY PE TYPE 

PLATFORM USED DETECTED LOCATION 
TINCAN ACTIVE SUBMARINE 512 
ESCORT ACTIVE SUBMARINE 512 
ESCORT ACTIVE SUBMARINE 1522 
TINCAN PASSIVE SUBMARINE ise 
LAPON PASSIVE SURFACE 502 
LAPON PASSIVE SURFACE 720 
LAPON PASSIVE SUBMARINE 1511 
LAPON PASSIVE SUBMARINE 1522 


PND OF DETECTION ROUTINE. TYPE Y(ES) TO CONTINUE. 


»y 


SELECT AND ENTER THE NUMBER OF A DISPLAY OPTION. 
= A 6 FOR A LIST OF DISPLAY OPTIONS. 
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YOU HAVE SELECTED INDIVIDUAL PLATFORM STATUS DISPLAY AND 
ASSOCIATED COMBAT,MOVEMENT AND SEARCH COMMAND INPUTS. 
ENTER THE NAME OF THE DESIRED PLATFORM. 


» mancan 


MEGAN IS LOCATED AT POSITION 502 SPEED 2 
IT WAS ASSIGNED THE FOLLOWING SEARCH MISSION(S) 
ACTIVE AND PASSIVE 


TYPE LOCATION METHOD RANGE 
SUBMARINE 512 ACTIVE 10 
SUBMARINE ieee PASSIVE 25 
TINCAN WEAPON SYSTEM(S) 

TYPE RANGE 
1 MK 46 20 
2  ASROC 7 


NO COMBAT ENTER N(ONE) - OTHERWISE ENTER 
TARGET LOCATION 
WEAPON SYSTEM NUMBER IN THIS FASHION 


»n 

TO SCHEDULE MOVEMENT ENTER 

Sree D 

DESTINATION IN THAT ORDER, OTHERWISE ENTER N(ONE) 
D3 

> 802 


ENTER SEARCH MISSIONS AS FOLLOWS: 
0 NONE SCHEDULED 
1 ACTIVE MISSION 
2 PASSIVE MISSION 
3 ACTIVE AND PASSIVE 


yo 


YOU HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT: 
NOE so ChE DULLED 
DESTINATION 802 Sete as 
ACTIVE AND PASSIVE SEARCH MISSION 


oS 





ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(O) TO RETURN TO DISPLAY SELECTION 


ay 
ENTER THE NAME OF THE DESIRED PLATFORM 


sescort 


BeeoRT IS LOCATED AT POSITION 720 SPEED 2 
IT WAS ASSIGNED THE FOLLOWING SEARCH MISSION(S) 
ACTIVE 


ier Pi LOCATION METHOD RANGE 
SUBMARINE Die ACTIVE 9 
SUBMARINE 22 ACTIVE 8 
ESCORT WEAPON SYSTEM(S ) 

ey fF RANGE 
1 ASROC 7 
2 MK 46 20 


NO COMBAT ENTER N(ONE) - OTHERWISE ENTER 
TARGET LOCATION 
WEAPON SYSTEM NUMBER IN THIS FASHION 


e522 

mL 

TO EMPLOY ANOTHER WEAPON SYSTEM, ENTER THE SYSTEM NUMBER 
OTHERWISE ENTER N(0) 


72 


TO EMPLOY ANOTHER WEAPON SYSTEM, ENTER THE SYSTEM NUMBER 
OTHERWISE ENTER N(0) 


>n 


TO SCHEDULE MOVEMENT ENTER 
» PEED 
DESTINATION IN THAT ORDER, OTHERWISE ENTER N(ONE) 


2 
>72 


YOU HAVE EITHER SET A SPEED HIGHER THAN MAX CAPABLE OR 
ATTEMPTED TO GO FURTHER THAN THE SPEED SETTING WILL ALLOW 


TO SCHEDULE MOVEMENT ENTER 
» PEED 
DESTINATION IN THAT ORDER, OTHERWISE ENTER N(ONE) 


> 2 
pr 722 
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YOU HAVE EITHER SET A SPEED HIGHER THAN MAX CAPABLE OR 
ATTEMPTED TO GO FURTHER THAN THE SPEED SETTING WILL ALLOW 


TO SCHEDULE MOVEMENT ENTER 
SPEED) 
DES TINATION IN THAT ORDER, OTHERWISE ENTER N(ONE) 


PZ 
pace 


ENTER SEARCH MISSIONS AS FOLLOWS: 
NONE SCHEDULED 

ACTIVE MISSION 

PASSIVE MISSION 

ACTIVE AND PASSIVE 


WrmMrO 


a 


YOU HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT: 
ASROC WEAPON PCT eHOGCATION 1522 
MK 46 WEAPON Tel weOCATION 1522 
DESTINATION 722 SE ee 2 
ACTIVE AND PASSIVE SEARCH MISSION 


ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(O) TO RETURN TO DISPLAY SELECTION 


Py 
ENTER THE NAME OF THE DESIRED PLATFORM 
> lapon 


[meeON I> LOCATED AT POSITION 512 SPEED 2 
IT WAS ASSIGNED THE FOLLOWING SEARCH MISSION(S) 
PASSIVE 


err LOCATION METHOD RANGE 
SURFACE 502 PASSIVE 10 
SURFACE 20 PASSIVE 9 
SUBMARINE Se PASSIVE 10 
SUBMARINE ec PASSIVE i) 


er, 





LAPON WEAPON SYSTEM(S) 


TYPE RANGE 
1  SUBROC 25 
2 MK 48 25 


NO COMBAT ENTER N(ONE) - OTHERWISE ENTER 
TARGET LOCATION 
WEAPON SYSTEM NUMBER DV Stnis Easttion 


melo 22 

?1 = 

TO EMPLOY ANOTHER WEAPON SYSTEM, ENTER THE SYSTEM NUMBER 
OTHERWISE ENTER N(0) 


yO 
TO EMPLOY ANOTHER WEAPON SYSTEM, ENTER THE SYSTEM NUMBER 
OTHERWISE ENTER N(0O) 


yn 


TO SCHEDULE MOVEMENT ENTER 
Bem D 
DESTINATION IN THAT ORDER, OTHERWISE ENTER N(ONE) 


Die 
712 


ENTER SEARCH MISSIONS AS FOLLOWS: 
O NONE SCHEDULED 
1 ACTIVE MISSION 
2 PASSIVE MISSION 
3 ACTIVE AND PASSIVE 


Dal 
YOU HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT: 
SUBROC WEAPON PET SSOCATLON 1522 
MK 48 WEAPON MGT LOCATION 1522 


DESTINATION 712 Sem 2 
ACTIVE SEARCH MISSION 
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ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
mime R N(O) TO RETURN TO DISPLAY SELECTION 


yy 


ENTER THE NAME OF THE DESIRED PLATFORM 


msprul 


SPRU1 IS CURRENTLY NOT FLYING - IT IS ASSUMED YOU 
DESIRE TO LAUNCH. 


SPRU1 IS NOW BEING LAUNCHED 


MOVEMENT NOT DESIRED ENTER N(ONE) OTHERWISE ENTER 
EP eED 
DESTINATION HEX IN THIS FASHION 


PaO 
‘5 1502 


ENTER SEARCH MISSIONS AS FOLLOWS: 
QO NONE SCHEDULED 
1 ACTIVE MISSION 
2 PASSIVE MISSION 


> 0 

YOU HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT: 

NONE SCHEDULED 

DESTINATION 1502 SPEED 10 

THERE IS NO SEARCH MISSION SCHEDULED 


ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(O) TO RETURN TO DISPLAY SELECTION 
ry 


ENTER THE NAME OF THE DESIRED PLATFORM 


> knox1 
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KNOX 1 foe nOCATEOeAT POSETION £720 AT SPEED 12 
IT WAS NOT ASSIGNED A SEARCH MISSION 


NO COMBAT ENTER N(ONE) OTHERWISE ENTER 
TARGET LOCATION 
WEAPON SYSTEM NUMBER IN THIS FASHION 


Yn 

MOVEMENT NOT DESIRED ENTER N(ONE) OTHERWISE ENTER 
SE BED 

DESTINATION HEX iN THis FASHION 


yn 


ENTER SEARCH MISSIONS AS FOLLOWS: 
QO NONE SCHEDULED 
1 ACTIVE MISSION 
2 PASSIVE MISSION 


D2 

YOU HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT: 

NONE SCHEDULED 

SPEED IS ZERO AT LOCATION 1720 

A PASSIVE SEARCH MISSION WILL BE CONDUCTED 


ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(O) TO RETURN TO DISPLAY SELECTION 
>n 


SELECT AND ENTER THE NUMBER OF A DISPLAY OPTION. 
ENTER A 6 FOR A LIST OF DISPLAY OPTIONS. 


>5 


THIS OPTION WILL BEGIN THE NEXT GAME TURN. TYPE Y(ES) 

IF YOU HAVE ENTERED ALL YOUR COMBAT, MOVE AND SEARCH 
INSTRUCTIONS AND YOU ARE READY TO COMMENCE PLAY. TYPE N(0O) 
Pere tURN TO DISPLAY SELECTION. 


?Y 


RED CALL TO STATUS ROUTINES. ENTER THE RED PASSWORD. 
» redpas 


170 





THE FOLLOWING DISPLAY OPTIONS ARE AVAILABLE TO YOU: 


» DETECTIONS OF ENEMY PLATFORMS. 
RESULTS OF WEAPONS FIRED. 
DAMAGE TO FRIENDLY PLATFORMS. 
STATUS OF FRIENDLY PLATFORMS AND INPUT OF INSTRUCTIONS. 


in © Ww nwo F&F 


» BEGIN NEXT GAME TURN. 


— 


SELECT AND ENTER THE NUMBER OF A DISPLAY OPTION. 
ENTER A 6 FOR A LIST OF DISPLAY OPTIONS. 


1 
SONOR Sinl Ie 
Perec TING TYPE eee 
PLATFORM en DETECTED LOCATION 
LVAN PASSIVE SURFACE 502 
IVAN PASSIVE SURFACE 7z0 
IVAN PASSIVE SUBMARINE eae 


END OF DETECTION ROUTINE. TYPE Y(ES) TO CONTINUE. 
>y 


SELECT AND ENTER THE NUMBER OF A DISPLAY OPTION 
ENTER A 6 FOR A LIST OF DISPLAY OPTIONS. 


>4 


YOU HAVE SELECTED INDIVIDUAL PLATFORM STATUS DISPLAY AND 
ASSOCIATED COMBAT,MOVEMENT AND SEARCH COMMAND INPUTS. 
ENTER THE NAME OF THE DESIRED PLATFORM. 


> ivan 


IVAN foenOCATED AT POSETION 1511 SPEED 1 
IT WAS ASSIGNED THE FOLLOWING SEARCH MISSION(S) 
PASSIVE 


OPE LOCATION METHOD RANGE 
SURFACE 5OZ Paseo a 14 
SURFACE 7 20 PASS IVE LS 
SUBMARINE 522 PASSIVE 1i 


7 





IVAN WEAPON SYSTEM(S) 


er i RANGE 
1 SSN-7 30 
me 2" 15 


NO COMBAT ENTER N(ONE) - OTHERWISE 
TARGET LOCATION 
WEAPON SYSTEM NUMBER {iN THis FASHION 


7 502 
>1 


TO EMPLOY ANOTHER WEAPON SYSTEM, ENTER THE SYSTEM NUMBER 
OTHERWISE ENTER N(0O) 


yee 
TO EMPLOY ANOTHER WEAPON SYSTEM, ENTER THE SYSTEM NUMBER 
OTHERWISE ENTER N(0) 


>n 


TO SCHEDULE MOVEMENT ENTER 
» PEED 
DESTINATION IN THAT ORDER, OTHERWISE ENTER N(ONE) 


D2 
41311 


ENTER SEARCH MISSIONS AS FOLLOWS: 
O NONE SCHEDULED 
1 ACTIVE MISSION 
2 PASSIVE MISSION 
3 ACTIVE AND PASSIVE 


pi 
YOU HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT: 
SON-7 * WEAPON TGT LOCATION 502 
a WEAPON TGT LOCATION 502 


DESTINATION 1311 Pee 2 
ACTIVE SEARCH MISSION 


2 





ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(O) TO RETURN TO DISPLAY SELECTION 
> y 


ENTER THE NAME OF THE DESIRED PLATFORM 


> boris 


BORn> Is LOCATED AT POSITION 1522 SPEED 2 
IT WAS ASSIGNED THE FOLLOWING SEARCH MISSION(S) 
ACTIVE 

at DE LOCATION METHOD RANGE 
THERE WERE NO DETECTIONS 
BORIS WEAPON SYSTEM(S) 

ix PE RANGE 
1 ea se 


NO COMBAT ENTER N(ONE) - OTHERWISE ENTER 
TARGET LOCATION 
WEAPON SYSTEM NUMBER IN THIS FASHION 


>n 

TO SCHEDULE MOVEMENT ENTER 

SPEED 

DES TINATION IN THAT ORDER, OTHERWISE ENTER N(ONE) 
>2 

1722 


ENTER SEARCH MISSIONS AS FOLLOWS: 
NONE SCHEDULED 

ACTIVE MISSION 

PASSIVE MISSION 

ACTIVE AND PASSIVE 


Wh FO 


1 


YOU HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT: 
NOME oo haoU Lap 


GS 





DESTINATION 1722 SERB 2 
Meriyl SEARCH MISSION 


ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(O) TO RETURN TO DISPLAY SELECTION 


Sn 


SELECT AND ENTER THE NUMBER OF A DISPLAY OPTION. 
ENTER A 6 FOR A LIST OF DISPLAY OPTIONS 


>y 
YOU HAVE MADE AN ERROR IN YOUR INPUT SELECTION. MTRY AGAIN. 


Sepecl’ AND ENTER THE NUMBER OF A DISPLAY OPTION. 
ENTER A 6 FOR A LIST OF DISPLAY OPTIONS. 


? 5 


THIS OPTION WILL BEGIN THE NEXT GAME TURN. TYPE Y(ES) 

IF YOU HAVE ENTERED ALL YOUR COMBAT, MOVE AND SEARCH 
INSTRUCTIONS AND YOU ARE READY TO COMMENCE PLAY. TYPE N(0) 
ieee lURN TO DISPLAY SELECTION. 

>y 

THE ATTACK BY ESCORT FAILED AS TGT RANGE SY WEAPON RANGE 
YOU HAVE JUST COMPLETED GAME TURN Le 


TYPE Y(ES) IF YOU WANT TO CONTINUE THE GAME, OR N(0) 
TQ ALLOW THE GAME TO END. 


ry 


Peeve CALL TO STATUS ROUTINES. ENTER THE BLUE PASSWORD. 
» blupas 


THE FOLLOWING DISPLAY OPTIONS ARE AVAILABLE TO YOU: 


fee OETECTIONS OF ENEMY PLATFORMS. 
RESULTS OF WEAPONS FIRED. 
DAMAGE TO FRIENDLY PLATFORMS. 


STATUS OF FRIENDLY PLATFORMS AND INPUT OF INSTRUCTIONS. 


Mm Ff WwW Wd 


BEGIN NEAT GAME TURN. 
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SELECT AND ENTER THE NUMBER OF A DISPLAY OPTION. 
ENTER A 6 FOR A LIST OF DISPLAY OPTIONS. 


> 3 
SHIP STATUS /HITS 
TINCAN 0 
ESCORT 0 
LAPON 0 


END OF DAMAGE DISPLAY ROUTINE. TYPE Y(ES) TO CONTINUE. 
»y 


SELECT AND ENTER THE NUMBER OF A DISPLAY OPTION. 
ENTER A 6 FOR A LIST OF DISPLAY OPTIONS. 
Pe 


TYPE Y(ES) FOR SHIP RESULTS. 
>y 


Samet — ESCORT COMBAT LOCATION - 1522 
WEAPON 1 TYPE - ASROC PROB(HIT)/DETONATION - NO DETONATION 
WEAPON 2 TYPE - MK 46 PROB(HIT)/DETONATION - DETONATION 


SHIP - LAPON COMBAT LOCATION - 1522 
WEAPON 1 TYPE - SUBROC PROB(HIT)/DETONATION - 0.6667 
WEAPON 2 TYPE - MK 48 PROB(HIT)/DETONATION - DETONATION 


END OF WEAPON RESULT DISPLAY. TYPE Y(ES) TO CONTINUE. 
>y 


SELECT AND ENTER THE NUMBER OF A DISPLAY OPTION. 
ENTER A 6 FOR A LIST OF DISPLAY OPTIONS. 


51 

SONOR SHIP 
Zee OTING TYPE TOPE . 
PLATFORM Srp. PET TED LOCATION 
moCORT ACTIVE SUBMARINE Wee 
KNOX1 PASSIVE SUBMARINE 712 
KNOX1 PASSIVE SUBMARINE fe SA ali 


i 





TINCAN PASSIVE SUBMARINE (AL 


TINCAN PASSIVE SUBMARINE fee 
ESCORT PASSIVE SUBMARINE PAE 
ESCORT PASSIVE SUBMARINE 1311 
LAPON ACTIVE SUBMARINE fiat 


END OF DETECTION ROUTINE. TYPE Y(ES) TO CONTINUE. 
Sy 


SELECT AND ENTER THE NUMBER OF A DISPLAY OPTION. 
ENTER A 6 FOR A LIST OF DISPLAY OPTIONS. 


D>4 


YOU HAVE SELECTED INDIVIDUAL PLATFORM STATUS DISPLAY AND 
ASSOCIATED COMBAT,MOVEMENT AND SEARCH COMMAND INPUTS. 
ENTER THE NAME OF THE DESIRED PLATFORM. 


> tincan 


TINCAN IS LOCATED AT POSITION 802 SPEED 3 
IT WAS ASSIGNED THE FOLLOWING SEARCH MISSION(S) 
ACTIVE AND PASSIVE 


TYPE LOCATION METHOD RANGE 
SUBMARINE Ae PASSIVE 10 
SUBMARINE 1311 PASSIVE 11 


TINCAN WEAPON SYSTEM(S) 
fee PE RANGE 

1 MK 46 20 

2 ASROC a 


NO COMBAT ENTER N(ONE) - OTHERWISE ENTER 
TARGET LOCATION 

WEAPON SYSTEM NUMBER IN THIS FASHION 
Sagi 

1 


TO EMPLOY ANOTHER WEAPON SYSTEM, ENTER THE SYSTEM NUMBER 
OTHERWISE ENTER N(0) 


>n 


TO SCHEDULE MOVEMENT ENTER 
She) 
DESTINATION IN THAT ORDER, OTHERWISE ENTER N(ONE) 
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3 
» 1102 
ENTER SEARCH MISSIONS AS FOLLOWS: 
NONE SCHEDULED 

ACTIVE MISSION 

PASSIVE MISSION 

ACTIVE AND PASSIVE 


WON = OS 


2 


YOU HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT: 

MK 46 WEAPON TGT LOCATION 1311 
MeotiNATION 1102 SPEED 3 
ACTIVE AND PASSIVE SEARCH MISSION 


ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(O) TO RETURN TO DISPLAY SELECTION 


»y 


ENTER THE NAME OF THE DESIRED PLATFORM 


Y escort 


Been? I> LOCATED AT POSITION 722 SPEED 2 
THE ESCORT ATTACK ON TARGET LOCATED AT 1522 


RELEASE OF ASROC RESULTED IN 
NO DETONATION - NO DISTURBED WATER MARKER 


RELEASE OF MK 46 RESULTED IN 
A DETONATION(HIT) 


IT WAS ASSIGNED THE FOLLOWING SEARCH MISSION(S) 
ACTIVE AND PASSIVE 


TYPE LOCATION METHOD RANGE 
SUBMARINE aa ACTIVE iG 
SUBMARINE 712 PASSIVE 10 
SUBMARINE ieee PASSIVE 14 
ESCORT WEAPON SYSTEM(S) 

TYPE RANGE 
1  ASROC 7 
2 MK hé6 20 


a 





NO COMBAT ENTER N(ONE) - OTHERWISE ENTER 
TARGET LOCATION 
WEAPON SYSTEM NUMBER IN THIS FASHION 


a 311 

>» 2 

TO EMPLOY ANOTHER WEAPON SYSTEM, ENTER THE SYSTEM NUMBER 
OTHERWISE ENTER N(0O) 


yn 


TO SCHEDULE MOVEMENT ENTER 
Sr ekED 
DES TINATION IN THAT ORDER, OTHERWISE ENTER N(ONE) 


2 
>7 20 


ENTER SEARCH MISSIONS AS FOLLOWS: 
0 NONE SCHEDULED 
1 ACTIVE MISSION 
2 PASSIVE MISSION 
3 ACTIVE AND PASSIVE 


ye) 
YOU HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT: 

MK 46 WEAPON TGT LOCATION 1311 


DESTINATION 720 Se eee 
ACTIVE AND PASSIVE SEARCH MISSION 


ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(Q) TO RETURN TO DISPLAY SELECTION 


?Y 


ENTER THE NAME OF THE DESIRED PLATFORM 
Ylapon 


fee ON IS LOCATED AT POSITION 712 SPEED 2 


178 





THE LAPON ATTACK ON TARGET LOCATED AT 1522 


RELEASE OF SUBROC RESULTED IN 
A DETONATION WITH PROBABILITY 
OF A HIT OF 4 OUT OF 6 


RELEASE OF MK 48 RESULTED IN 
A DETONATION(HIT) 


IT WAS ASSIGNED THE FOLLOWING SEARCH MISSION(S) 
ACTIVE 


eee PE, LOCATION METHOD RANGE 
SUBMARINE oa ACTIVE 6 
LAPON WEAPON SYSTEM(S) 

ee RANGE 
1 SUBROC 25 
2 MK 48 ao 


NO COMBAT ENTER N(ONE) - OTHERWISE ENTER 
TARGET LOCATION 
WEAPON SYSTEM NUMBER IN THIS FASHION 


pei 311 
ec 


TO EMPLOY ANOTHER WEAPON SYSTEM, ENTER THE SYSTEM NUMBER 
OTHERWISE ENTER N(0O) 


mn 


TO SCHEDULE MOVEMENT ENTER 
ene) 
DESTINATION IN THAT ORDER, OTHERWISE ENTER N(ONE) 


> 
eth 


ENTER SEARCH MISSIONS AS FOLLOWS: 
O NONE SCHEDULED 
1 ACTIVE MISSION 
2 PASSIVE MISSION 
3 ACTIVE AND PASSIVE 


D1 


ae 





YOU HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT: 

MK 48 WEAPON TGT LOCATION 1311 
DESTINATION 714 SPEED 2 
ACTIVE SEARCH MISSION 


ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(O) TO RETURN TO DISPLAY SELECTION 


>Y 


te R THE NAME OF THE DESIRED PLATFORM 


> sprul 


enue Is LOCATED AT POSITION 1502 AT SPEED 10 
IT WAS NOT ASSIGNED A SEARCH MISSION 


NO COMBAT ENTER N(ONE) OTHERWISE ENTER 
TARGET LOCATION 
WEAPON SYSTEM NUMBER IN THIS FASHION 


>n 

MOVEMENT NOT DESIRED ENTER N(ONE) OTHERWISE ENTER 
SPEED 

DESTINATION HEX iN Erne LON 


> ni 


ENTER SEARCH MISSIONS AS FOLLOWS: 
O NONE SCHEDULED 
L ACTIVE MISSION 
Ze PASSIVE MISSION 


>2 


YOU HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT: 

NONE SCHEDULED 

SPEED IS ZERO AT LOCATION 1502 

PerASSLVE SEARCH MISSION WILL BE CONDUCTED 
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ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(O) TO RETURN TO DISPLAY SELECTION 


»>y 


ENTER THE NAME OF THE DESIRED PLATFORM 


> knoxil 
YOU HAVE ENTERED AN INCORRECT PLATFORM NAME. 
REENTER 


> knoxt 


fer i> LOCATED AT POSITION 1720 AT SPEED Q 
IT CONDUCTED A PASSIVE SEARCH WITH FOLLOWING RESULTS 


SUBMARINE CONTACT LOCATION RANGE 
Te 13 
etd il 
KNOX1 WEAPON SYSTEM(S) 
TYPE RANGE 
1 MK 46 20 


NO COMBAT ENTER N(ONE) OTHERWISE ENTER 
TARGET LOCATION 
WEAPON SYSTEM NUMBER IN THIS FASHION 


1311 
>1 


MOVEMENT NOT DESIRED ENTER N(ONE) OTHERWISE ENTER 
Se BED 
DESTINATION HEX IN THIS FASHION 


>n 


ENTER SEARCH MISSIONS AS FOLLOWS: 
QO NONE SCHEDULED 
1 ACTIVE MISSION 
2 PASSIVE MISSION 


»1 

YOU HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT : 

MK 46 WEAPON TEMP LOCATION, 1 311 


ied 





SPEED IS ZERO AT LOCATION 1720 
AN ACTIVE SEARCH MISSION WILL BE CONDUCTED 


ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(O) TO RETURN TO DISPLAY SELECTION 
-n 


Seesct AND ENTER THE NUMBER OF A DISPLAY OPTION. 
ENTER A 6 FOR A LIST OF DISPLAY OPTIONS. 


»5 


THIS OPTION WILL BEGIN THE NEXT GAME TURN. TYPE Y(ES) 

IF YOU HAVE ENTERED ALL YOUR COMBAT, MOVE AND SEARCH 
INSTRUCTIONS AND YOU ARE READY TO COMMENCE PLAY. ‘TYPE N(0) 
TO RETURN TO DISPLAY SELECTION. 


>y 


Reb CALL TO STATUS ROUTINES. ENTER THE RED PASSWORD. 
> redpas 


THE FOLLOWING DISPLAY OPTIONS ARE AVAILABLE TO YOU: 


ie DETECTIONS OF ENEMY PLATFORMS. 
RESULTS OF WEAPONS FIRED. 
DAMAGE TO FRIENDLY PLATFORMS. 


2 
o 
4, STATUS OF FRIENDLY PLATFORMS AND INPUT OF INSTRUCTIONS. 
5 BEGIN NEXT GAME TURN. 


SELECT AND ENTER THE NUMBER OF A DISPLAY OPTION. 
ENTER A 6 FOR A LIST OF DISPLAY OPTIONS. 


> 3 
SHIP STATUS/HITS 
IVAN O 
BORIS SUNK 


By OF DAMAGE DISPLAY ROUTINE. TYPE Y(ES) TO CONTINUE. 
y 
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SELECT AND ENTER THE NUMBER OF A DISPLAY OPTION. 
ENTER A 6 FOR A LIST OF DISPLAY OPTIONS. 


> 2 

SHIP - IVAN COMBAT LOCATION - 502 

WEAPON 1 TYPE - SSN-7 PROB(HIT)/DETONATION - 0.1667 
WEAPON 2 LY PE Saeed PROB(HIT) /DETONATION-NO DETONATION 


END OF WEAPON RESULT DISPLAY. TYPE Y(ES) TO CONTINUE. 
Dy 


SELECT AND ENTER THE NUMBER OF A DISPLAY OPTION. 
ENTER A 6 FOR A LIST OF DISPLAY OPTIONS. 


> 1 
SONOR bee 
Perec TING JPNe1s Es 
PLATFORM USED DEIBCtED LOCATION 
IVAN ACTIVE SUBMARINE Ane 


END OF DETECTION ROUTINE. TYPE Y(ES) TO CONTINUE. 
yy 


peoeoT AND ENTER THE NUMBER OF A DISPLAY OPTION. 
ENTER A 6 FOR A LIST OF DISPLAY OPTIONS. 


>4 


YOU HAVE SELECTED INDIVIDUAL PLATFORM STATUS DISPLAY AND 
ASSOCIATED COMBAT,MOVEMENT AND SEARCH COMMAND INPUTS. 
meek THE NAME OF THE DESIRED PLATFORM. 


>ivan 


IVAN Pe boCnwepeal POSITION 1311 SPEED 2 
THE IVAN ATTACK ON TARGET LOCATED AT 5OZ 
RELEASE OF SSN-7 RESULTED IN 


A DETONATION WITH PROBABILITY 
foe HIT OF 1 OUT OF 6 


135 





RELEASE OF 21" RESULTED IN 
NO DETONATION - NO DISTURBED WATER MARKER 


IT WAS ASSIGNED THE FOLLOWING SEARCH MISSION(S) 
ACTIVE 


TYPE LOCATION METHOD RANGE 
SUBMARINE Ze ACTIVE 6 
IVAN WEAPON SYSTEM(S) 

TYPE RANGE 
me SsN-7 30 
oe 21" 15 


NO COMBAT ENTER N(ONE) - OTHERWISE ENTER 
TARGET LOCATION 
WEAPON SYSTEM NUMBER IN THIS FASHION 


a7 2 

a 

TO EMPLOY ANOTHER WEAPON SYSTEM, ENTER THE SYSTEM NUMBER 
OTHERWISE ENTER N(0) 


>n 


TO SCHEDULE MOVEMENT ENTER 
» PEED 
DESTINATION IN THAT ORDER, OTHERWISE ENTER N(ONE) 


p 2 
pe iii 


ENTER SEARCH MISSIONS AS FOLLOWS: 
0 NONE SCHEDULED 
1 ACTIVE MISSION 
2 PASSIVE MISSION 
3 ACTIVE AND PASSIVE 


yA 
YOU HAVE ENTERED THE FOLLOWING COMMANDS 
COMBAT: 

Zi" WEAPON TGT LOCATION alee: 


DESIGNATION 1111 Sled B 2 
ACTIVE SEARCH MISSION 
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ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(O) TO RETURN TO DISPLAY SELECTION 


Dy 


ENTER THE NAME OF THE DESIRED PLATFORM 


boris 


fee l> LOCATED AT POSITION 1522 SPEED 2 


NOTE 
DUE TO PREVIOUS AND/OR CURRENT DAMAGE SUFFERED, MAX SPEED 
ieeNOW O THE SHIP HAS BEEN HIT 3 TIMES 


Meenas BEEN HIT BY A TORPEDO 
IT HAS BEEN HIT BY A NON-TORPEDO WEAPON 
Meents BEEN HIT BY A TORPEDO 
IT WAS ASSIGNED THE FOLLOWING SEARCH MISSION(S) 
ACTIVE 

iy PE LOCATION METHOD RANGE 
THERE WERE NO DETECTIONS 


SINCE THE BORIS HAS BEEN SUNK, NO COMMAND INPUTS CAN BE 
ACCEPTED 


ENTER Y(ES) TO CONTINUE WITH ANOTHER PLATFORM 
ENTER N(O) TO RETURN TO DISPLAY SELECTION 
> n 


SELECT AND ENTER THE NUMBER OF A DISPLAY OPTION. 
= A 6 FOR A LIST OF DISPLAY OPTIONS 
5 


THIS OPTION WILL BEGIN THE NEXT GAME TURN. TYPE Y(ES) 

IF YOU HAVE ENTERED ALL YOUR COMBAT, MOVE AND SEARCH 
INSTRUCTIONS AND YOU ARE READY TO COMMENCE PLAY. TYPE N(0O) 
Eee TURN TO DISPLAY SELECTION. 


DY 


Ley 





Eeue RESULTS : 


FINAL 
SHIP STATUS /HITS LOCATION 
TINCAN 0 dakoe 
ESCORT 0 720 
LAPON 0 714 
TYPE Y(ES) TO SEE RED RESULTS. 
»y 
RED RESULTS: 
FINAL 
SHIP STATUS /HITS LOCATION 
IVAN SUNK iid 
BORIS SUNK 1522 


TYPE Y(ES) TO RETURN TO MENU SELECTION AND START A NEW 
GAME. TYPE N(O) TO EXIT THE GAME. 
ny 


THE FOLLOWING OPTIONS ARE AVAILABLE TO YOU: 


1. ZERO ANY PREVIOUSLY ESTABLISHED DATA BASE. 
2. EXIT THE GAME. 

3. INITIALIZE GAME PARAMETERS AND COMMENCE PLAY. 
ENTER AN OPTION. 

> 2 

EXISTING THE GAME. 
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on num £& wh = 
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32 
a3 
34 
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36 
3? 
38 
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40 
41 
Ye 
43 
NY 
45 
46 
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48 
NS 
50 
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APPENDIX F 
PROGRAM LISTING 


IMPLICIT INTEGER (A-Z) 

OIMENSIGN SHIPOA (130,18), NAMESH(130,8). ACDATA(16,7),. NAMEAC (16, 
16) ,WEPUDA (29, 3) , NAMEWP (29,6) .S1 (130) ,S2 (130) ,$3 (130) ,5N (130), 
185 (130: ,S$6 (130) ,87(130) ,58 (130) ,$9 (130) .$10 (130) ,$11 (130), 
1912 (130) ,$13 (130) , S14 (130) ,.515 (130) .$16 (130) ,$171130), 
1918 (130) ,NS1 (130) ,.NS2 (130) .NS3 (130) .NSY (130) .NS5 (130), 
INS6 (130) ,NS7 (130) .NS8 (130), 
LINPUT (70) , ALPHA (2) , CHECK (6) , CLASNA (8) 
EQUIVALENCE (SHIPOA(1,1),51 (1)), (SHIPOA(1,2),S2(1)), 

(SHIPOF (1,3),5301)), (SHIPOAC!, YW), S34 (1)), (SHIPOA(1,5),S95(1)), 
(SHIPOF (1,6) ,56(1)), (SHIPOA (1,7) ,57(1))., (SHIPOA (1,8) ,58(1)), 
(SHIPDA (1,9) ,59(1)), (SHIPOA (!,10),510(01)), (SHIPOA (1,11) ,S511 (10), 
(SHIPOA (1,12) ,512¢1)), (SHIPOA (1,13) .913(1)), (SHIPDA(1,14) SIN (1D), 
(SHIPOA (1,15) ,515 (1)), (SHIPOA (1,16) ,516(1)), (SHIPOA (1,17) ,51701)), 
(SHIPOA (1,18) ,518(1)), (NAMESH (1,12) .NS1 (1)), (NAMESH (1,2) ,NS2(1)), 
(NAMESH (1,3) .NS3(1)), (NAMESH (1,4) ,NSY (1)) , (NAMESH (1.5) ,NSS(1)), 
(NAMESH (1,6) .NS6(1)), (NAMESH (1,7) .NS7(1)), (NAMESH (1,8) ,NS8 (1) ) 


COMMON STATEMENT 


COMMON PLATFM (100,37) ,DETECT (100.4) WEP (29,3) ,HIT (100, 3) , SUNK (100) 
1,WATER (100) , NAME (100.6) , BUFFER (100, 8) , BLUPAS (6) .REDPAS (6). 

2IPLAT, IAIR, ISURF,1SUB,AQV,POV,AEV,PEV, ERATIC, BLUAIR, REOAIR, BLUSUR, 
3REOSUR, BLUSUB, REOSUB, PBAIR1, PBAIR2, PRAIA], PRAIR2. PBSUR],PBSUR2, 
YPRSUR1], PRSUR2, PBSUB1, PBSUB2, PRSUB], PRSUBe 


RIRCRAFT NAME OATA ARRAY 


DATA NAMEAC/‘HO*, “SE', *LY', WA’, “SE'. LA‘, ‘WE’, “SU, “AB. 26 °MA', 
Mune O RR eLvins NI tA? RM, A NX, “SP*, °A *. MP’, *SS". *PE®, 
commen erenens nro G)), KN MAY 2 ON, KN 2° °° SP. 
OMEN ON 2m e’, KEYS ON “NG, "00". °E *,°E *, "NG". 
Pree Had) Sy hhc, da AM We STEN Se 
eet, Geo . TTT "CON. 86" 7 


AIRCRAFT OATA ARRAY 


DATA ACOATA/11,12,15,10,12.16,.12.14.10,24, 31,15, 30,2«35, 24, 3m, 3, 
1264,3,N, 363, 40UN, 3, 3m, 3, 20K, 3,4, Bme3, Ne, 3,6,2616,17,3%16,2«17, 
12"29,4*16,17,9~1,4,5,1,3,1,2%3, 2429, 9n0,5429,3,1,9%0,3,N.3,2mN/ 


WEAPON NAME DATA ARRAY 


DATA NAMEWP/2™'SS*, "SU, "SS", 21°, 16", 20 °MK', STIS NHK", SS", 
iASpeemernon tk, °HAy, FH, 2<°M8°, Lb I°, “HE*, °37°, "30", “ME, “BO". 
OC eM BAC IN- "20° 8° Uo, 9°, GE," 2°,° K*.° L*." 6%, 
iestiecnOwex: ¥°. AR®, LA’. UAS*.em‘U-", “MB, ‘OG",2n°SM*, "NO", “FRM, 
MECC Ch COC iN oon eb S707. RE*. 0 “302 “445 *. 
Mate Ce 6. SN A FO. 4)", 25°, NS", 6." “EH, 
TEPRHMMN ORS tT “1S*,9~° ", "N° “.2n"00".* *, 


hey 





5! Oca mero. Over. H Lin “6 ee A Set 75". * 4, 
52 fepes 8, HHS? 87 

s3 c 

54 
55 c 

56 DATA WEPDA/S.4, 2x6, 2"5,6,.5,6,5,6,3"5,6,5,4,6,5,6,204, 243.4, 403, 
57 12430,25,20,15, 10,25, 2415, 7, 10,268, 12, 7,20,12,10,8,16,3,2, 71, 
58 1261.2, 16%3,2,904/ 

59 c 

60 
61 c 

62 HOUBENSi nde ooM, KI sh Os Ri*, EN°, VI’, ‘CA. TA’, BE*."8A*, 
63 meee ehinmtOe Gt. AE, “SP°, MI°, Fe. °CO™, “CH. CA’. “GE*. 
64 MOMeMENEReenc GACY aIA’, LA’, ET°, °G.*,°tO*, (NA®, “ST's °PE®, "TU". 
65 MeSheeshanckh AO, 2KA", KR’. KY", KA". KA’, KO". KA’. SK”, MI”, 
66 gteeeerGe 1a. GO", HO", °CH*, “V1ScEG*, NO*, *IN*. BR”, WE“. 
67 or ovate ROTA. LE, SA, BL”, WH’, “AE, “SW*, °VA™, ‘OR’, 
68 PaaHmanaenNue ST, MAY. AE’, "O05", ‘HE’, PE*, DR. °0.*, "RI. 0B", 
69 Richerson. HO, (DU. 10", “AC*, “Su, “LAS, “TA, “KE *. “CA*, °DE*. 
70 WieGumeow He, “RE|, AG", OA”, “AR*, NA°. V1", AN*, “AUS, 21M", “LUS 
71 east Ocee BE CEs AL. 7SA". “EX, “10° (LU. HAS, “KO, “THS, 26 "U- 
72 1°/ 

73 c 

74 Dope Semin ER, 11. RE’, TDW. "TE +. °AG™, LI". UX", “LK, “IN®, 
75 atm SGMUIe . GNC. EVs°GI "4 (RUS. 15", “AR, ON*, AR", °RP*, °AR", 
76 IVEPROKIOO senGe. 10°, °FE*, HA.’ W*.°S °. AN, UR", *AMS, “LI, 
a PU Cee ecsK =; “RA*, ES, ND", “1V°,°NI*, TL*, SH’. OR". °AK". 
78 PaameCHeriamenk « UF", “TE*, AR", CT*, “MO”, °VE*,*¥1",‘1S*,°AP*, 
79 EPR eaN sh, 15). OP. E14, AC*, *1T°.*SO°, ‘IF *, *L1*. *EA*: 
BO he ee cEMRING tet, (CK, 750), VER. LB’. AT?, AS, H.*, VE, “EAS, 
81 CRercNUMmUB NT, (PE, UR’. “GN. °FE’,* G*, AT", RS", SA". “ST. 
82 inner voumonsclo, 05", PH. "El, °AY’, "11", °OR*. “DA, *PA*, “PE®, 
83 hp ee rlemeeiGe HG Ny ~.°BA*, UR 1. FI ts T°. MB’. LN. ET". 
Bu (ates 207 

85 c 

86 TaMAEN So amizer Geach. ST), AY°.°AP >, “IN*. FO", °TO", ‘NA*, “BA™. 
87 MuPeNKeepGe mba cE 5, ANT. CH") %ES", *TZ°. LE". “EN*, ° IN’ 
88 Pane emia s EN, “Vel, (Ni ©, °AS°, AN®, HA’, “GE*,°IT*, “BE*, 
89 i teere ee VA. , TA’. “AS, TAK. NH °,26 IN’, *Y °,20°A *, 
90 eee et LT) SOR", °° HB*. NC’. °T0", "ON". 

91 tee ONG OE: eStaAl An, SB. KW, BY", *LU*,°TS*, ‘AN’, *ON”, 
92 aoe NMC O cA, ER°. EN’, "ON. “OU, °H °,°NG*,* P*,°A % ON", 
93 Ere enna. Vis ITs RE . AL’. U *, “AL*. “BL °, IE". 
34 Me eep ee Oui Usa”, NE“. °HU; AL‘. ‘OR*. ‘EA*. CE’, *VI°, “Tue. 
95 eet Geer AM, AUT, TR, 0), AN’. =, °EN*,“*UR",* *, ‘IS. 
36 PM oss 

97 c 

98 ATABNSU ete. :HA,AL*, *,°Al*. “TAS, “AN, *N *,*P *. 71D", 2x 
99 MPOMERE SRN ,°, CE, ERT “2 9°. °S *.*TE*. *G ".*° HLS 
100 Pane onT A cH. GE*. Ur 4 ON, NE. CK". Sf 17% 


a 


WEAPON DATA ARRAY { 


SHIP NAME ARRAYS 


Oo 


kee 





101 
1de2 
103 
104 
10S 
106 
107 
108 
109 
110 
111 
ble 
Es 
114 
PS 
116 
el? 
118 
119 
120 
121 
122 
123 
124 
125 
126 
he? 
128 
129 
130 
PS! 
ie 
13 
134 
135 
136 
137 
138 
noo 
140 
141 
1We 
143 
Puy 
145 
146 
{u? 
148 
1u9 
150 


© 


Pere Sem IB’. EL *,* 9, ELS, * RS TAKS," 4, 
Oe ecee mere) (UR*, °T *, OU", *  *.* EIS, *uAn*, SI", 
VC Cheaeeeen acne SER’, 26), “CE*, WET 8S SLES, ES SLLS, 
eee Lote, NT. ANS, NN’, “RI°,°RD*, "LO", "TA, 24°, 
ocemmOn Ons, (00°. 0525" %.°15",*IN*, ‘AD*, “OS”, 
PereCReEe 5 °° Gotan */ 


BOemNSovenm HKeser’ °.°SE*,* *, *FA*,2e° *°,°GE*.39x° *,°CH* 
Mee ecHin me cE oA, Po, *. Sue CE. SLE’ SONGS, 
Peo cneEme GCE on 0 *.5a° *, 9 4.40%, 9) ‘ONT. *E 
l cant ree th ae Phen aS Se TEN Ee See. 3: Vee *,on* ee oe 
Noe Reneeoes EF ¢, 20° °, SO%,2n° °, “CATE *, vl *. 

i * NN’. "BLY Ux * eae V>. "OR*.28" ei Pea re TOE 
Le lt 


CANO OATIe mere Cio sg A get” 6|O6CU CG PE, Se [UU TNT CTE, S$, 
16° * ols’ alse I aes * ont a cae *, “HE *, 7x’ oe 

1° °, ‘AR’, 6™° *, NN’ Un’ RS AT’, cE $n? EN fe a 
Louie we CA lee) CS 


DalHeNoT slo" eo, MA, * °. OA’,ec+° °, “AR*, Ge* *.°N *. 7%"? %, 
l21™°* Sti *,lex' ties Set °" 6° Se ee ee OE a an 
1°S ae wes Use Se Ee On: ~~ mO*, tex* ‘7 


DRIGeNSG Lom GN. =. MS °,cx° “,°Y “,iiies ° ein ® % 
i Meee eG ’, AG .lew” 6 6° OU Ge SS OSY/ 


SHIP DATA ARRAYS 


DATA $1/9%3,8.3,.4,3, 3,4, 7e3,4,4, 3, 32,3, Seo, UHD, Be 2, U9, SHY, Se, 
13m2,3,4,2m2,12%3,2, 3%3,2,5%3,2,2,4, 3%3,2, 1203, 9u2, 2n3, 3mUN, 3, 3x2, 
bay anl es, seks 


DATA $2/0,3,4%0,4U%5, 54h, 0,285, 265,204, Oe 3, UeS, KO, 5S, Ue, Om 3, Sue, 
L2oe3,U, Pm3, 24, m3, Ome, Oe3, Oe, S, ce, 73, 2me4, 3x3, 500,39,0,4,3,5,3,3, 
14,3,.0,6™5,2e4,5,4,3,4,3,304,260,2%3,4,3,2,4,45~3,0, 3*3,4, 3%3, 2x0/ 


DATA $3/0,4,4%0,5, 8%#4,3, 265, 64,5, Se, 9eS, Oe, 3e5, Oe, 5, Om, 5S, Ua, 
LenS Oe, 2e5, Om, Oe, 5,1 3eU, 3, Sed, 3,0,24d,5,4,3,244,0,6%5, Bu, 2onS, 
11284,0, 3™4, 6«4/ 


DATA SY/6%0,4%1,6%0,261,6x0,Ue1, 4x0, 51,20, 3x1, 2*0,1,2%0,1,12%0, 
117”0,1,5%0,3%0,1,2%0,1,2%0,6%1, 280,261, 360, 3x1, 2%0, 140, 6%0/ 


DATA SS/6~0,4%1,6«0,2%1,6"0,1361,2%0, 3x1, 240,1,2%0,13,12%0,1 70, 
11,50, 3%0,1,2%0, 3x0, 6%1,2x0,1,9%0,6%0,2%1,6%0,6%0/ 


DATA $6/2,4=1,2, 34h, 63,2, 12e9,5, 30h, 3e5,4,5, 2m2, 2,463, Oe, 3,5,3, 


P2eG,2e2, 243, LUKE, 5,560 ,5,2,0eN,5, 2,203, LYK, UnS, On3, Qu, 35, 
TUad, onS/ 
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io 1 
152 
1353 
154 
59 
156 
7 
158 
19 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
17e 
a73 
174 
175 
176 
177 
178 
179 
180 
181 
162 
163 
164 
165 
166 
187 
168 
1893 
190 
191 
ie 
35 
194 
195 
196 
137 
198 
199 
200 


oO 


80 


Oa 37/562, 4x35,2,4nN3,1, 2x3, ene, 3, Ihe, 3,32, 9"3, 2x2, UNS, Sue, oul, 
l2elie=o,O,e,e%5,ce%e,1/42,6%2,1,2,1,2,1,2,2M2. 1,6%3, exc, 3, 4x2, 343, 
fexw, exe, 3,c,1,5%c,0,c,c%1, 3c, 31 / 


DATA 58/6=0,9615,0, 15, 16,6%15, 16,3415, 47, 7e3,4,20,244,21,4, 321, 
129, 321,4%5,2,5.1,5,0,18, 3m16, 7x23, 5"9,5016,9,0, 18,23, 16,18.9, 3x0, 
1Sml2,Uml1, 12, et), 5013, Limt 7, 3m1G,17, 3414, 2n8/ 


OATA $9/6=0,4.,2"5,3,5%5,0,5,4,6%5,4, 3m5, Gnd, 7m3,5,3,204,6,4, 36, 
19,2%7,8,49"4,1.,4,1,3,0,3. 3e4, 7™6,5%4,664,0, 3mN,3,4,3"0,565, Bm, Su5, 
11285,49,5,5,364,205/ 


QATA $10/6~™0, 9%16,2"0,15,6%16,0,3%16, 40, 2x7, 4x21,0,21,0,29,22,0, 
16,0,29.4"0,5,0,5,0,0,23. 3x0, 16,60, 5%10,0, 423, 10, 4x0, 23, 10,50, 
14”19,2425,19,25, 2626, 25,5%0,4%0,27,0,2627,0,27, 24, 3x0, 15, 3m28, OnO/ 


DATA $11/6™0,4,2%3,6™4,2%0,5,6"4,0, 364,4"0, 7e4,4%6,0,6,0,4.6,0.4, 
10,4,4%0,4,0.4,0,0,6,3"0,4,660, 54,0, 204,265, 4,460, 204,50, 4x4, On6, 
14,4*6,5"4,4%0,6,.0,5,6,0,2"6, 30,5, 3e6,0,0/ 


OATA S12/390, 2u5, 2x29, 4x0, 29, 12%0,17"0, 6"0, 60,60, 26,4"0,25, 2x0, 
129,60, 140,6=0/ 


OATA S13/39%0,4U"4,4m0,4, 1260,17"0,6%0,6%0, 6x0,6,4%0,6,20,4,60, 
114"0,60/ 


OATA S14/6m2,565,2%0,2e5,0,6,5,660,4%5,11640,491,1760,2,4, 33, 304, 
190, 2n2,4%0,2,2%0,2,20,16,8,0, 3x3, 2x0, 3, 12%0,249,2,9,20,9, 2e0, 
16«0/ 


DATA S15/66, 3u2,20)1,260,2e1,0.2,1,6%0,2, 3m1,11%0,10,5,2%1, 1 7m0, 
110,1,2,5%1,9%0,2,21,3"0,5,2e0,1,2640,10,6,0,3"1,2x0,1,enm0, 
110”0,9,4,1,1,2x0,2e2, 11%0/ 


DATA $16/6™14, 33%0,21%0,17%0,6"0,6%0,8,20"0, 140, 6u0/ 

DATA 317/66, 33%0,21%0, 17%0,6=0, 6"0,5, 20x0,14*0,6%0/ 

DATA $18/6™3, 102, 12e1,1162,3,4m2, 8x1, Bm2, 2n2,10m1,562,5%1,2,3, 
14”1,2,3,2e2, 1361, 502, One, 91,362, Uml, Ou e/ 

OATA MAXPLT/100/ 

DATA ALPHA/’Y*, ‘N°/ 

EQUALIZE WEPOA AND WEP 30 WEP CAN BE COMMONED 

BDA 81 121,29 

BDO 680 J=1,3 


WEP (1, J} =WEPDA (1, J) 
CONTINUE 
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201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
er) 
ele 
els 
214 
215 
210 
21? 
218 
219 
220 
2c} 
ace 
223 
224 
225 
226 
2e? 
228 
229 
230 
231 
23e2 
233 
234 
235 
236 
es? 
238 
239 
240 
24) 
242 
243 
244 
245 
246 
247 
248 
249 
250 


> 


99 


CO 


B2 


200 


CONTINUE 
INITIALIZE THE GAME PARAMETERS 


TURN=0 

BLUAIR=0 
BLUSUR=0 
BLUSUB=0 
REOAIR=0 
REDSUR=0 
REOSUB=0 


INITIALIZE THE ARRAY PLATFM AND OTHERS 


DO 83 151,MAXPLT 
060 62 J=1,37 
PLATFM(], J) =0 
CONT INUE 

WATER (1) s-1 
DETECT (1,1) =-1 
HIT (1,1) 3-1 
SUN, (1) 2-1 
BUFFER(],1) =0 
BUFFER (I,2) <0 
BUFFER (],3) =0 
BUFFER (1,4) =0 
BUFFER(],5) =0 
BUFFER (],6) =1 
BUFFER (], 7) =1 
BUFFER (],8) =1 
CON! INUE 


MENU 


WRITE (6,100) 

FORMAT (*1THE FOLLOWING OPTIONS ARE AVAILABLE TO YOu: *, 
1///,* 1. ZERO ANY PREVIOUSLY ESTABLISHED OATA BASE.*, 
17/7, 2. EX] THE GARE. *, 

1//,* 3. INITIALIZE GAME PARAMETERS AND COMMENCE PLAY. °, 
1///,* ENTER AN OPTION. ') 

READ (5,200) INPUT 
FORMAT (70A1} 

CALL NONVAT (INPUT, INDEX) 

IF (1}NDEX.NE.1) GO TO 2 
FOR?AT (Al) 


WRITE (6,111) 

FORMAT (*1 THE GPTION YOU HAVE SELECTED WILL OESTROY ANY FILES THAT * 
1,/,° YOU HAVE ALREADY CREATED. IF YOU CONTINUE, YOU WILL HAVE’, 
1/,° *O6 RELGAD ALL USER INPUTS. TYPE Y(ES) TO ERASE THE FILES,’, 
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251 
252 
253 
254 
259 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
27S 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
230 
291 
232 
293 
294 
235 
236 
2g? 
298 
239 
300 


eon n 


120 


12) 


166 
167 


168 


122 


123 


1/,° OR TYPE N(O) IF YOU WANT TO RETURN TG MENU SELECTION WITHOUT’, 
1/,° ERASING THE FILES. *) 

READ (5,200) INPUT 

CALL INVAT1 (I1NPUT,A) 

IF (H}.NE.ALPHAII)) GO TO 1 

co 66 939 

IF (iNOEX.EQ.2) GG TO 9999 


LOAO GAME PARAMETERS 


HALF =MAXPLT 

HALF =HALF /2 

WRITE (6,120) MAXPLT,HALF 

FORMAT (*1YOU ARE NOW GOING TG EXTER THE BASIC GAME PARAMETERS. *, 
1/,° ONE WORD GF CAUTION. THE PFESENT GAME CAN GNLY HANDLE A‘, 
1/,* TOTAL OF *,IN,° WEAPON SYSTEMS. INCLUDEO IN THESE SYSTEMS“, 
1/,° ARE SURFACE SHIPS, SUBMARINES ANO AIRCRAFT. THE NUMBER OF °, 
1/,° AIRCRAFT ARE OETERMINEO BY THE SHIP CLASS AS REFLECTEO IN THE* 
1,7. ° OATA BASE, ANO WILL 8E LOACEO AUTOMATICALLY WHEN YOU SELECT’, 
1/,° THE SHIP CLASS. PRIGR TO BEGINNING THE LOADING PROCEQURE*, 
1/,*° YOU SHOULO ENSURE THAT THE TOTAL NUMBER GF EACH PLAYERS‘, 

17, WEAPON SYSTEMS DOES NOT EXCEEO *,14,°.°) 

WRITE (6,121) 

FORMAT (////,* ENTER THE NUMBER OF GAME TURNS YOU WANT TO PLAY. °*) 
REAQ(S,200) INPUT 

CALL NONVAT (INPUT, TURN) 

WRITE (6,167) , 

FORMAT (//, “QENTER THE WATER CONOITIGN (O-NORMAL, 1-ERRATIC).*) 
READ (S,200) INPUT 

CALL NGONVAT (INPUT, ERATIC) 

IF (ERATIC.EQ.0.GR.ERATIC.€0.1) GO TO S 

WRITE (6, 168) 

FORMAT (/, * YOU HAVE MADE AN ERROR ENTERING THE WATER CONDITION. *) 
GO TO 166 

WRITE (6, 122) 

FORMAT (‘1 THE FOLLOWING INPUTS APPLY ONLY TG THE BLUE PLAYER’, 
1/,° THE FIRST IS THE BLUE PLAYERS PASSWORO WHICH I1S°*, 
1/,° A MAXIMUM GF 6 CHARACTERS. THE PASSWORD IS IMPORTANT BECAUSE * 
1,/,° IT 1S REQUIRED PRIGR TG THE INPUT GF COMBAT, MOVE ANO SEARCH* 
1,/,° COMMANOS. IF YGU FORGET THE PASSWORO, YOU WILL HAVE TO RETUR 
IN*,/,° TO MENU SELECTION, ANO RESTART THE GAME. *,///,°* SELECT ANO 
1ENTER YOUR PASSWORD *) 

READ (S,200) INPUT 

CALL INVRT6 (INPUT, BLUPAS) 

WRITE (6,123) BLUPAS 

FORMAT (//,° YOUR PASSWORO WILL BE -*°,6A1,‘- . IF YOU ARE, 
1/,* READY TO CONTINUE TYPE Y(ES). TYPE N(O) IF YOU WISH TQ°, 
1/,° CHANGE YOUR PASSWORO. °) 

READ (5,200) INPUT 

CALL INVRT1 (I1NPUT,A) 
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301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
aie 
o15 
314 
315 
316 
Si? 
318 
319 
320 
32) 
Sec 
323 
324 
325 
326 
32? 
328 
329 
330 
331 
sae 
333 
334 
355 
336 
a5 7 
3338 
333 
340 
34) 
342 
343 
344 
3u5 
346 
347 
346 
349 
350 


124 


126 


Le? 


128 


129 


130 


131 


132 


235 


IF (ALEQ.ALPHA(2)) GO TO 5 

WRITE (6,124) 

FORMAT (//, ‘OENTER THE NUMBER OF BLUE SURFACE SHIPS. ’) 

REAO (5, 200) INPUT 

CALL NONVAT (INPUT, BLUSUR) 

WRITE (6, 126) 

FORMAT (//7, ‘OENTER THE NUMBER OF BLUE SUBMARINES. ”) 

READ (S,200) INPUT 

CALL NONVAT (INPUT, BLUSUB) 

WRITE (6,127) 

FORMAT (7/7, ‘OENTER THE NUMBER OF BLUE SHIPS THAT MUST’, 
1/,° BE DESTROYED FOR PREMATURE GAME ENDING. ”’) 

READ (S,200) INPUT 

CALL NONVAT (INPUT, BLUQDES) 

WRITE (6,128) BLUSUR, BLUSUB, BLUDES 

RPURMGW/ 7. “ECHO (> //,° BLUE SURFACE SHIPS = *, 14, 
1/,° BLUE SUBMARINES - °*, 14, 
1/,* NUMBER GF BLUE SHIPS DESTROYED TO ENO GAME - ’,14) 

WRITE (6, 129) 

FORMAT (//, ‘OTYPE YES) IF THESE VALUES ARE CORRECT, OR N(O) IF’, 
1/,”’ YOU WANT TO REENTER THEM. *) 

READ (S, 200) INPUT 

CALL INVAT1 (INPUT, A) 

IF (ALEQ.ALPHA(2)) GO TO 5 

WRITE (6,130) 

FORMAT (°1 THE FOLLOWING INPUTS APPLY ONLY TO THE RED PLAYER*, 
1/,° THE FIRST 1S THE RED PLAYERS PASSWORD WHICH IS A ’, 

1/,° MAXIMUM OF 6 CHARACTERS. THE PASSWORD IS IMPORTANT BECAUSE’, 
1/,°* IT 1S REQUIRED PRIOR TO THE INPUT OF COMBAT, MOVE AND SEARCH’ 
1,/,° COMMANDS. IF YOU FORGET THE PASSWORD, YOU WILL HAVE TO RETUR 
IN*,/,* TO MENU SELECTION, AND RESTART THE GAHE.’,///,* SELECT AND 
LENTER YOUR PASSWORD. *) 

READ (5,200) INPUT 

CALL INVRT6 (INPUT, REDPAS) 

WRITE (6,131) REDPAS 

FORMAT (//,° YOUR PASSWORD WILL BE -*,6A1,’- . IF YOU ARE’, 

1/,° READY TO CONTINUE TYPE Y(ES). TYPE N(O) IF YOU WISH TO"," 
1/,°’ CHANGE YOUR PASSWORD. *) 

READ (S, 200) INPUT 

CALL INVRT1 (INPUT, A) 

IF (ALEQ. ALPHA (2)) GO TO 6 

WRITE (6,132) 

FORMAT (//, ‘OENTER THE NUMBER OF RED SURFACE SHIPS. *) 

READ (5,200) INPUT ; 

CALL NONVAT (INPUT, REOSUR) 

WRITE (6, 135) 

FORMAT (//, ‘OENTER THE NUMBER OF RED SUBMARINES. ’) 

READ (5,200) INPUT 

CALL NONVAT (INPUT, REDSUB) 

WRITE (6, 136) 


2 





351 136 FORMAT (//7, ‘OENTER THE NUMBER OF RED SHIPS THAT MUST", 


Jac 1/,*° BE DESTROYEO FOR PREMATURE GAME ENDING. ‘) 

553 READ ($5,200) INPUT 

354 CALL NONVRT (INPUT, REOOES) 

320 WRITE (6,137) REOSUR, REOSUB, REODES 

395 137 BORMAN 7, sEenUl.77, AEC SURFACE SHIPS = °, 14, 

357 1/,° REO SUBMARINES - °,14, 

358 1/,* NUMBER OF REO SHIPS OESTROYEO TO END GAME - *, 14) 
399 WRITE (6, 138) 

360 138 FORMAT (//, “OTYPE Y(ES) IF THESE VALUES ARE CORRECT, OR N(O) IF*, 
361 1/,*° YOU WANT TQ REENTER THEM. *) 

362 REAG (5,200) INPUT 

363 CALL INVART! (INPUT,A) 

364 IF (A,EQ. ALPHA (2))G0 TO 6 

365 C 

366 C SET VARIABLES TQ BE USED AS POINTERS TO THE PLATFM ARRAY 
36? £ 

368 PRSUB2=MAXPLT 

369 PRSUB1=MAXPLT-REOSUB*! 

376 PBSUB2=PRSUB1-! 

a7} PB3UB1=PBSUB2-BLUSUB*! 

aie PRSUR2=PBSUB!-1 

373 PARSUR1=PRSUR2-REOSUR* I 

374 PBSUR2=PRSUR1-1 

375 PBSUR!=PBSUR2-BLUSUR*} 

376 c 

ai? G LOAD BLUE WEAPON SYSTEMS 

378 C 

379 7 WRITE (6, 140) 

380 140 FORMAT (*1YOU ARE NOW READY TO LOAD THE BLUE WEAPON SYSTEMS. *, 
38) 1//,* ENTER THE BLUE PASSWORD. *) 

382 READ (5,200) INPUT 

383 CALL INVRT6LINPUT, CHECK) 

364 A=0 

385 OO 141 121,6 

386 IF (CHECK (1) .NE.BLUPAS (13) A=} 

387 IF (A.EQ.1) GO TO 14e 


386 14) CONTINUE 
389 142 IF (ALNE.1) GO TO 8 


390 WRITE (6,143) 

391 143 FORMAT (//7,° YOU HAVE MADE AN ERROR IN YOUR PASSWORD. TYPE Y(ES)*, 
Bde 1/,° IF YOU WANT TO TRY AGAIN. OTHERWISE YOU WILL BE", 
393 1/,° RETURNED TO MENU SELECTION. *) 

394 READ (5,200) INPUT 

395 CALL INVAT! CINPUT,A) 

338 IF (A.EQ.ALPHA(!)) GO TO 7? 

397 GO 70 1 

398 8 SHIPNO=0 

399 BLUAIR=0 

YOO 1F (BLUSUR.EQ.0) GO TO 170 


194 





401 
4Oe 
403 
YOY 
40S 
406 
40? 
408 
409 
410 
W1) 
Yle 
4Y13 
W14 
415 
416 
41? 
418 
419 
420 
Nel 
Y2e 
4Y23 
Y2y 
425 
426 
N27 
428 
429 
430 
431 
4¥32 
433 
W34 
435 
436 
\37 
438 
439 
W40 
Yu) 
Wye 
44S 
YUY 
QS 
NU6 
44? 
WHE 
WY 
450 


144 


NS 
147 
146 


202 


148 


149 


mOOaOM 


D0 165 SHIP=PBSUR1,PBSUR2 
SHIPNO=SHIPNO*] 
WRITE (6.144) SHIPNG 


FORMAT (°1BLUE SURFACE SHIP NUMBER *,14,//,* ENTER A 6 CHARACTER’, 


1* NAME FOR THE SHIP. *) 

READ (S,200) INPUT 

CALL INVRT6 (INPUT, CHECK) 

00 14S J=1,6 

NAME (SHIP, J) sCHECK (J) 

CONTINUE 

WRITE (6,146) CHECK 

FORMAT (“OENTER THE SHIP CLASS OF 
READ (S,202) CLASNA 

FORMAT (8A2) 

CALL SCLASS (CLASNA, CLASIN, NAMESH) 
IF (CLASIN.EQ.0) WRITE (6, 148) 


FORMAT (*OYOU HAVE MADE A MISTAKE. 


*,6A1) 


ENTER THE SHIP CLASS WITH NO’, 


1/,° LEADING 8LANKS USING A PROPER CLASS NAME. °) 


IF (CLASIN.EQ.0) GO TO 147 
PLATFM (SHIP, 30) =CLASIN 
WRITE (6,149) CHECK 


FORMAT (°OENTER THE Y DIGIT HEX NUMBER OF THE INITIAL °, 


1/7, SESGATIGN OF ~, SAL) 

READ (5,200) INPUT 

CALL NONVAT (INPUT,A) 
PLATFM(SHIP,3) =A 

PLATFM (SHIP, 8) =1 

PLATFM (SHIP, 20) =SHIPOA (CLASIN, 18) 
PLATFM (SHIP, 12) =SHIPOA (CLASIN, 1) 
PLATFM (SHIP, 13) =SHIPDA (CLASIN, 2) 
PLATFM (SHIP, 14) =SHIPOA (CLASIN, 3) 
PLATFM (SHIP, 15) =SHIPOA (CLASIN, 9) 
PLATFM (SHIP, 16) =SHIPDA (CLASIN, 11) 
PLATFM (SHIP, 17) =SHIPDA (CLASIN, 13) 
PLATFM (SHIP, 18) =SHIPDA (CLASIN, 6) 
PLATFM (SHIP, 19) =SHIPOA (CLASIN, 7) 
PLATFM(SHIP, 21) =SHIPDA (CLASIN, 8) 
PLATFM (SHIP, 22) =SHIPDA (CLASIN, 10) 
PLATFM (SHIP, 23) =SHIPQA (CLASIN, 12) 
PLATFM (SHIP, 24) =SHIPDA (CLASIN,Y) 
PLATFM(SHIP,25) =SHIPDA (CLASIN, 5) 
PLATFM (SHIP, 26) sSHIPDA (CLASIN, 14) 
PLATFM (SHIP,27) =SHIPOA (CLASIN, 16) 
PLATFM (SHIP, 28) =SHIPDA (CLASIN, 15) 
PLATFM(SHIP, 29) =SHIPOA (CLASIN, 17) 


LOAD BLUE WEAPON SYSTEMS - AIRCRAFT 


06 155 1=26,27 


L95 








45] PEtPCAIEMISHIP,1).£0.0) GO 10 165 


452 AC INDX=PLATFM (SHIP, 1} 

4uS3 WRITE (6,151) CLASNA, PLATFM (SHIP, 1+2), (NAMEAC (ACINOX, J), J=1,6) 
uSY 151 FORMAT(//, *OTHE *,8A2,* CLASS GF SHIP HAS *,12,1X,6A2,1X, *TYPE’, 
USS 1° AIRCRAFT. *) 

4uS6 PLATFM (SHIP, 1*5) =BLUAIR®! 

uS7 BLUAIR=BLUAIR*PLATFM (SHIP, I +2) 

uS6 PLATFM(SHIP,1*7) =BLUAIR 

uSg ACOUNT=0 

460 PePLATFM (SHIP, 1+5) - 

46! Q=PLATFM (SHIP, 1+7) 

462 DO 154 AC=P.Q 

463 ACQUNT=ACOUNT #1 

YOu WRITE (6,152) ACGUNT 


465 132 FORMAT (°OENTER A 6 CHARACTER NAME FOR AIRCRAFT *, 12) 
466 READ (S,.'00) INPUT 


U6? CALL IN‘/RTG (INPUT, CHECK) 

W686 00 153 '21,6 

469 NAME (AC, J} =CHECK (J) 

470 153 CONTINUE 

W7! PLATFM{(AC, 3) =PLATFM (SHIP, 3) 
472 PLATFM{AC, 8) =0 

473 PLATFM (AC, 12) =ACDATA (ACINDX, 1) 
Y7Y PLATFM (AC, 13) =ACBDATA (ACINDX, 2) 
¥75 PLATFM (AC, 14%) =ACDATA(ACINOX, 3) 
476 PLATFM (AC, 15) =ACBDATA (ACINOX, 5) 
47? PLATFM{(AC, 16) =ACDATA (ACINDX, 7) 
478 PLATFM (AC, 17) z=ACDATA (ACINOX, 4) 
479 PLATFM (AC, 18) =ACBATA (ACINOX, 6) 
480 PLATFM (AC, 20) =1 

48] PLATFM(AC, 21) =SHIP 

482 PLATFM(AC, 22) =PLATFMISHIP, 1) 
483 154 CONT INUE 

Y8yY 155 CONTINUE 

485 165 CONT INUE 

W86 C 

487 c LOAD BLUE WEAPON SYSTEMS ~- SUBMARINES 
488 C 

489 170 If (BLUSUB.EQ.0) GO T8 10 

490 SUBNO=0 

49} BDO 175 SUB=PBSUBI1,PBSUBe 

W492 SUBNO2SUBNO+t! 

W493 WRITE (6,171) SUBNO 


YOY 171 FORMAT (*IBLUE SUBMARINE NUMBER °,74,//,* ENTER A 6 DIGIT’, 


495 1°’ CHARACTER NAME FOR THE SUBMARINE. °) 
496 READ (S,200) INPUT 

Y9? CALL INVRT6 (INPUT, CHECK) 

W398 06 172 J=1,6 

499 NAME (SUB, J) =CHECK (J) 


500 lie CONTINUE 


196 





301 174 WRITE (6,173) CHECK 
502 173 FORMAT C‘OENTER THE SUBMARINE CLASS OF *,6A1) 


503 READ (5,202) CLASNA 

504 CALL SCLASS (CLASNA, CLASIN, NAMESH) 
505 IF (CLASIN.EQ.0) WRITE (6,148) 

506 IF (CLASIN.EQ.0) GO TO 174 

50? PLATFM (SUB, 30) =CLASIN 

508 WRITE (6,176) CHECK 

509 176 FORMAT (°OENTER THE 4 DIGIT HEX NUMBER OF THE INITIAL ‘, 
510 1/,* LOCATION OF *,6A1) 

511 READ (5,200) INPUT 

Se CALL NONVAT (INPUT,A) 

S13 PLATFM (SUB, 3) 2A 

514 PLATFM (SUB, 8) =e 

SS PLATFM (SUB, 20) sSHIPDOA (CLASIN, 18) 
516 PLATFM (SUB, 12) =SHIPOA (CLASIN, 1) 
517 PLATFM (SUB, 13) =SHIPDA(CLASIN, 2) 
518 PLATFM (SUB, 1&4) sSHIPDA (CLASIN, 3) 
519 PLATFM (SUB, 15) =SHIPDA (CLASIN, 9) 
520 PLATFM (SUB, 16) =SHIPOA (CLASIN, 11) 
S21 PLATFM (SUB, 17) =SHIPOA (CLASIN, 13) 
S22 PLATFM (SUB, 18) =SHIPDA (CLASIN, 6) 
523 PLATFM (SUB, 19) =SHIPDA(CLASIN, 2) 
Seu PLATFM (SUB, 21) =SHIPOA (CLASIN, 8) 
$25 PLATFM (SUB, 22) <SHIPDA (CLASIN, 10) 
926 PLATFM (SUB, 23) =SHIPOA (CLASIN, 12) 
S27 PLATFM (SUB, 24) =SHIPDA (CLASIN, 4) 
528 PLATFM (SUB, 25) =SHIPDA (CLASIN, 5) 
529 PLATFM (SUB, 26) =SHIPDA (CLASIN, 14) 
530 PLATFM (SUB, 27) =SHIPDA (CLASIN, 16) 
531 PLATFM (SUB, 28) =SHIPDA(CLASIN, 15) 
532 PLATFM (SUB, 29) =SHIPDA (CLASIN, 17) 
533 175 CONTINUE 

534 C 

oa5 C : 
536 C LOAD RED WEAPON SYSTEMS 

537 C 


538 10 WRITE (6, 240) 
539 240 FORMAT(*1YQU ARE NOW READY TO LOAD THE RED WEAPON SYSTEMS. "*, 


540 1//,*° ENTER THE RED PASSWORD. ‘) 
341 READ (5,200) INPUT 

242 CALL INVRT6 (INPUT, CHECK) 

543 A=0 

S&y DO 241i 1=1,6 

Su5 IF (CHECK (1) .NE.REDPAS (13) Az] 
S546 IF (A.EQ.1)} GO TO eke 


Su? 24) CONTINUE 

548 242 IF (R.NE.1) GO TO 11 

Sug WRITE (6,243) 

550 243 FORMAT(//,* YOU HAVE MADE AN ERRCR IN YOUR PASSWORD. TYPE Y(ES)*, 


Me 








So! 
552 
553 
554 
555 
$56 
55? 
558 
559 
360 
561 
S62 
563 
564 
565 
566 
567 
568 
569 
570 
$71 
S72 
573 
$74 
375 
576 
$77 
378 
579 
580 
381 
$82 
583 
S84 
385 
386 
387 
388 
589 
390 
Sol 
59e 
$93 
394 
995 
596 
$97 
398 
399 
600 


11 


e4y 


24u5 
247 
246 


203 


248 


eu 


Lie 


READ (5,200) INPUT 

CALL INVRT1 (INPUT,A) 

IF (ALEQ.ALPHA(1}) GO TO 10 
GO TO 1 

REOAIR=BLUAIR 

IF (REDSUR.EQ.0) GO TO 270 
SHIPNO=0 

00 265 SHIP=PRSUR1,PRSUR2 
SHIPNG=SHIPNO+t1 

WRITE (6,244) SHIPNO 

FORMAT (°1REO SURFACE SHIP NUMBER 


1° NAME FOR THE SHIP. °*) 


READ (5,200) INPUT 

CALL INVRT6 (INPUT, CHECK) 

06 245 J=1,6 

NAME (SHIP, J) =CHECK (J) 

CONTINUE 

WRITE (6,246) CHECK 

FORMAT (°OENTER THE SHIP CLASS OF 
READ (5,203) CLASNA 

FORMAT (8A2) 

CALL SCLASS (CLASNA, CLASIN, NAME SH) 
IF (CLASIN.EQ.0) WRITE (6,248) 


FORMAT (°OYGU HAVE MADE A MISTAKE. 
LEADING BLANKS USING A PROPER CLASS NAME. °) 


IF (CLASIN.EQ.0) GO TO 24? 
PLATFM(SHIP,30) =CLASIN 
WRITE (6,249) CHECK 


1/,° IF YOU WANT TO TRY AGAIN. OTHERWISE YOU WILL BE’, 
1/,° RETURNED TO MENU SELECTION. °) 


°,14,//,° ENTER A 6 CHARACTER’, 


*,6A1) 


ENTER THE SHIP CLASS WITH NO°, 


FORMAT (*OENTER THE 4Y OIGIT HEX NUMBER GF THE INITIAL °, 


1/,*° LOCATION OF *,6AI) 


READ (S,200) INPUT 

CALL NONVRT CINPUT,A) 

PLATFM (SHIP, 3) =A 
PLATFM(SHIP, 8) =1 

PLATFM (SHIP, 20) =SHIPDA (CLASIN, 18) 
PLATFM (SHIP, 12) =SHIPDA(CLASIN, 1) 
PLATFM(SHIP, 13) =SHIPDAI(CLASIN, 2) 
PLATFM (SHIP, 14) =SHIPOA(CLASIN, 3) 
PLATFM (SHIP, 15) =SHI PDA (CLASIN, 9) 
PLATFM (SHIP, 16) =SHIPOA (CLASIN, 11) 
PLATFM (SHIP, 17) =SHIPOA(CLASIN, 13) 
PLATFM (SHIP, 18) sSHIPOA (CLASIN,6) 
PLATFM (SHIP, 19) =SHIPOA(CLASIN, 7) 
PLATFM(SHIP,21) =SHIPDA (CLASIN, 8) 
PLATFM(SHIP,22) =SHIPOA (CLASIN, 10} 
PLATFM (SHIP, 23} =SHIPORI(CLASIN, 12) 
PLATFM (SHIP, 24) =SHIPDA(CLASIN,4Y) 
PLATFM (SHIP,25) =SHIPDA (CLASIN, 5) 


198 








601 
602 
603 
604 
605 
606 
607 
608 
6093 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
62u 
625 
626 
62? 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
Bue 
643 
6uy 
645 
646 
647 
648 
649 
650 


PLATFM(SHIP, 26) =SHIPDA (CLASIN, 14) 
PLATFM(SHIP,27) =SHIPDA (CLASIN, 18) 
PLATFM(SHIP, 28) =SHIPDA (CLASIN, 15) 
PLATFM (SHI, 29) =SHIPDA (CLASIN, 17) 


LOAD RED WEAPON SYSTEMS - AIRCRAFT 


yO Nn OM MS 


SO 00 255 1#26,27 

IF (PLATFM(SHIP,1).€0.0) GO TO 265 
ACINDX=PLATFM (SHIP, 1) 
WRITE (6,251) CLASNA, PLATFM (SHIP, 1*2) , (NAMEAC (ACINDX, J) ,J=1,6) 

251 FORMAT (//, “OTHE *,8A2, ° CLASS OF SHIP HAS *,12,1X,6A2,1X, ‘TYPE’, 

1° AIRCRAFT. *) 
PLATFM(SHIP, 1+5) =REDAIR+1 
REODAIR=REDAIR+PLATFM (SHIP, 1+2) 
PLATFM(SHIP,1+7) s=REDAIR 
ACOUNT=0 

PsPLATFM(SHIP,1+*5) 

Q=PLATFM (SHIP, 1+ 7) 

DO 254 AC=P,0 

ACOUNT=ACOUNT +1 

WRITE (6,252) ACOUNT 

252 FORMAT (CSOENTER A 6 CHARACTER NAME FOR AIRCRAFT °,12) 
READ (5,200) INPUT 
CALL INVART6 (INPUT, CHECK) 

DO 253 J=1,6 
NAME (AC, J) =CHECK (J) 

253 CONTINUE 
PLATFM(AC, 3) =PLATFM (SHIP, 3) 
PLATFM(AC, 8) =O 
PLATFM(AC, 12) =ACDATA (ACINDOX, 1) 
PLATFM(AC, 13) s=ACDATA (ACINDX, 2) 
PLATFM (AC, 14) =ACDATA (ACINDX, 3) 
PLATFM (AC, 15) =ACDATA (ACINDX, 5) 
PLATFM(AC, 16) =ACDATA (ACINDX, 7) 
PLATFM(AC, 17) =ACDATA (ACINDX, 4) 
PLATFM(AC, 18) =ACDATA (ACINDX, 6) 
PLATFM(AC, 20) =1 
PLATFM(AC,21) =SHIP 
PLATFM(AC,22) =PLATFM (SHIP, 1) 

2eS4 CONT INUE 

2o0 CONTINUE 

265 CONTINUE 


C 

e LGAD RED WEAPON SYSTEMS - SUBMARINES 
C 

270 IF (REOSUB.£Q.0) GO TO 15 


SUBNO=0 
DO 275 SU3=PRSUB1,PRSUBe 


Ls 








651 
6S2 
653 
654 
655 
656 
SD/ 
658 
659 
660 
661 
66e 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
67B 
679 
680 
6B1 
682 
6B3 
684 
6BS 
686 
687 
6BB 
6B9 
690 
691 
692 
693 
694 
635 
696 
697 
69B 
6399 
700 


271 


27e 
274 
eqs 


276 


275 


1S 


SUBNO=SUBNG* 1 
WRITE (6,271) SUBNO 
FORMAT (*1REO SUBMARINE NUMBER *,14,//,° ENTER A 6 DIGIT’, 


1° CHARACTER NAME FOR THE SUBMARINE. *) 


READ (S,200) INPUT 

CALL INVRT6 (INPUT, CHECK) 

00 2?2 J=1,6 

NAME (SUB, J) =CHECK (J) 

CONTINUE 

WRITE (6,273) CHECK 

FORMAT (‘OENTER THE SUBMARINE CLASS OF *‘,6AI) 
READ (S,203) CLASNA 

CALL SCLASS (CLASNA, CLASIN, NAMESH) 

IF (CLASIN.EQ.0) WRITE (6,248) 

IF (CLASIN.EQ.0) GO TO 274 
PLATFM (SUB, 30) =CLASIN 

WRITE (6,276) CHECK 

FORMAT (°OENTER THE Y DIGIT HEX NUMBER OF THE INITIAL °, 


1/,*° LOCATION OF °,6A1) 


READ (S,200) INPUT 

CALL NONVRT (INPUT, A) 

PLATFM (SUB, 3) =A 

PLATFM (SUB, 8) 22 

PLATFM (SUB, 20) =SHIPDA (CLASIN, 1B) 
PLATFM (SUB, 12) =SHIPDA (CLASIN, }) 
PLATFM (SUB, 13) =SHIPDA (CLASIN, 2) 
PLATFM (SUB, 14) =SHIPDA (CLASIN, 3) 
PLATFM (SUB, 15) =SHIPDA (CLASIN, 9) 
PLATFM (SUB, 16) =SHIPDA(CLASIN, 11) 
PLATFM (SUB, 17) =SHIPDA (CLASIN, 13) 
PLATFM (SUB, 1B) =SHIPDA (CLASIN, 6) 
PLATFM (SUB, 19) =SHIPDA (CLASIN, 7) 
PLATFM (SUB, 21) =SHIPOA (CLASIN, 8) 
PLATFM (SUB, 22) =SHIPDA (CLASIN, 10) 
PLATFM (SUB, 23) =SHIPDA (CLASIN, 12) 
PLATFM (SUB, 24) =SHIPDA (CLASIN, 4) 
PLATFM (SUB, 25) =SHIPDA (CLASIN,S) 
PLATFM (SUB, 26) =SHIPOA (CLASIN, 14) 
PLATFM (SUB, 27) =SHIPDA (CLASIN, 16) 
PLATFM (SUB, 2B) =SHIPDA (CLASIN, 15) 
PLATFM (SUB, 29) =SHIPDA (CLASIN, 1 7) 
CONT INUE 


SET VARIABLES TO BE USED AS POINTERS TO THE PLATFORM ARRAY 


PBAIR1=1 

PBAIR2=BLUAIR 
REDAIR=REOAIR-BLUAIR 
PRAIR1=BLUAIR+1 
PRAIR2=PRAIR1+REOAIR-1 


200 








70) 
702 
703 
704 
705 
706 
707? 
708 
709 
710 
711 
Vie 
713 
714 
A> 
716 
71? 
718 
719 
720 
721 
Vee 
ie23 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
a9 
70 
741 
We 
743 
TuY 
TNS 
74N6 
747 
78 
74N9 
750 


IAIR=BLUAIR*REDAIR 

1SURF =BLUSUR*REGSUR 

ISUB=BLUSUB+REDSUB 

IPLAT2IAIR+ ISURF +1 SUB 

IF (IPLAT.LE.MAXPLT) GO TO 16 

WRITE (6,280) 

280 FORMAT (“OTHE TOTAL NUMBER OF WEAPON SYSTEMS HAS EXCEEDED THE MAXIM 

1UM*,/,° NUMBER OF PLATFORMS ALLOWED. YOU WILL HAVES, 

1/,*° TO RESTART THE GAME. *‘) 


GO 70 939 
C a 
C LOOP TO CLOSE PLATFM AND REASSIGN POINTERS 
C 
16 IF (PBSUR1.EQ. (PRAIR2+*1)) GO TO 17 


ISHIP=ISURF+ISUB 
BDO 283 1=1,1SHIP 
DO 281 J=1,3H 
PLATFM(PRAIR2+], J) sPLATFM (PBSURI+I-1, J) 
281 CONTINUE 
DO 282 J=1,6 
NAME (PRAT RetI1, J) =NAME (PBSURI+I1-1, J) 
282 CONTINUE 
BDO 284 J=28,29 
IF (PLATFM (PRAT Re+], J) .£Q.03 GO TO 283 
P=PLATFM (PRAIR2+1, J+3) 
Q=PLATFM(PRAIR2+1, J+5) 
DO 285 K=P,0 
PLATFM(K,21) =PRAIR2+] 
285 CONTINUE 
eBy CONTINUE 
283 CONTINUE 
00 286 1=1, IPLAT 
BUFFER (1,4) =PLATFM (1, 3) 
286 CONT INUE 
PBSURI=PRAIR2+*) 
PBSUR2=PBSUR1 *BLUSUR-1 
PRSUR1=PBSUR2*1 
PRSUR2=PRSUR1+REDSUR- } 
PBSUB1*=PRSURe+! 
PBSUB2=PBSUB1+BLUSUB-! 
PRSUB1=PBSUBe+t! 
PRSUB2=PRSUB1+*REOSUB-1 


om 


CONTROL OF GAME TURNS 


1? ITURN=0 

19 WRITE (6,300) 

300 FORMAT (*IBLUE CALL TO STATUS ROUTINES. ENTER THE BLUE PASSWORD. °*) 
READ (S,200) INPUT 
CALL INVRTS (INPUT, CHECK) 


201 








751 
782 
V2 
754 
ss 
756 
vo7 
758 
759 
760 
761 

762 
763 
764 
765 
766 
767 
768 
769 
7270 
771 

pa’ 
73 
724 
775 
776 
777 
778 
a1 
780 
781 

782 
783 
784 
785 
786 
787? 
788 
789 
790 
791 

792 
733 
794 
795 
796 
797 
730 
799 
BOO 


301 


20 
302 


21 


303 
ee 


305 


23 


306 


CALL STATUS (CHECK, ERROR, NAME WP) 

IF (ERROR.E0.0) GO TO 20 

WRITE (6, 301) 

FORMAT (°OTTPE YC(ES) TO TRY THE STATUS CALL AGAIN. TYPE N(O)‘,/, 
1* 16 RETURN TO MENU SELECTION ANDO RESTART THE GAME. *) 

READ t(S,200) INPUT 

CALL INVATI CINPUT,A) 

IF (ALEQ. ALPHA (2)) GO TO 1 
GG 16 19 

WRITE (6, 302) 

FORMAT (*IRED CALL TO STATUS ROUTINES. ENTER THE RED PASSWORD. °) 

READ (S,200) INPUT 

CALL INVAT6 (INPUT, CHECK) 

CALL STATUS (CHECK, ERROR, NAMEWP) 

IF (ERROR.EQ.0) GO TO 21 

WRITE (6.301) 

READ (S, 200) INPUT 

CALL INVAT1 CINPUT,A) 

IF (ALEQ. ALPHA (2)) GO TO 1 

GO TO 20 

CALL CONTRL 

BOcS=0 ° 

ROES=0 

06 303 1=1,100 

S2SUNK (1) 

PES-E0.-1) GO 10 22 

IF ((S.GE.P8SUR1.AND.S.LE.PBSUR2) .OR. (S.GE.PBSUB1.AND.S.LE.PBSUB2) ) 
IBOES=BDES+!1 

1F ((S.GE.PRSUR1.ANO.S.LE.PRSUR2) .OR. (S.GE.PRSUB1.ANO.S.LE.PRSUB2) ) 
IROES=ROES+*1 

CONT INUE 

IF (BDOES.EQ. (BLUSUR*BLUSUB)) GO TO 9997 

If (BOES.LT.BLUDES) GO TO 23 

WRITE (6, 305) 

FORMAT (°1THE NUMBER GF BLUE SHIPS DESTROYED 1S EQUAL TO OR *, 
1/,° GREATER THAN THE NUMBER INPUT FOR GAME ENDO. IF YOU WANT’, ; 
1/,° TO CONTINUE THE GAME, TYPE Y(ES). TYPE N(O) TO ENO THE GAME. * 
1) 

READ (5,200) INPUT 

CALL INVRT1 (INPUT, A) 

IF (ALEQ. ALPHA (2)) GO TO 9997 

IF (ROES.EQ. (REOSUR*REOSUB)) GO TO 9997 

IF (ROES.LT.REODES) GO TO 2u 

WRITE (6, 306) 

FORMAT (*ITHE NUMBER OF RED SHIPS DESTROYED IS EQUAL TO OR‘, 

1/,* GREATER THAN THE NUMBER INPUT FOR GAME ENO. IF YOU WANT’, 
1/,*° TO CONTINUE THE GAME, TYPE Y(ES). TYPE N(O) TO ENO THE GAME. * 
1) 

READ (5,200) INPUT 

CALL INVRT1 (INPUT,AD 
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801 
80e 
803 
804 
805 
806 
807? 
808 
809 
810 
811 
B12 
813 
814 
815 
816 
817 
818 
B19 
820 
82) 
B22 
823 
824 
Be5 
826 
82? 
828 
829 
830 
831 
832 
a33 
834 
835 
836 
837 
838 
o29 
840 
84} 
B42 
843 
BYu4 
845 
B46 
84? 
848 
849 
850 


IF (AL-EQ. ALPHA (2)) GO TO 999? 
2y I TURN=1TURN®]) 
IF (1 TURN.LT. TURN) GO TO 25 
WRITE (6,304) ITURN 
304 FORMAT (‘1 YQU HAVE JUST COMPLETED GAME TURN *,13,°.°, 
1/,° TYPE YES) IF YOU WANT TG CONTINUE THE GAME, OR N(G)', 
1/,° TO ALLOW THE GAME TO END. *) 
READ (S,200) INPUT 
CALL INVRT) (INPUT, A) 
IF (ALEQ.ALPHA(2)) GO TO 3997 
25 GO TO 13 
C 
C GAME EN) 
C 
9997 WRITE (6.307) 
30? FORMAT (‘1BLUE RESULTS: °*,//) 
WRITE (6, 308) 
308 FORMAT (* °,31X, ‘FINAL*,/,5X. ‘SHIP’, 5X, “STATUS/HITS‘, 5X, 
1*LOCATION') 
COUNT=0 
IF (BLUSUR.EQ.0) GO TO 2? 
A=P8SUR1 
B=PBSUR2 
C=} 
26 067313 PLI=A, 8 
TEMP=-PLATFM (PLT, 11) 
IF (PLATFM(PLT,20) .£Q.0) WRITE (6,309) (NAME (PLT, J),JjJ#1,6), 
IPLATFM (PLT, 3) 
309 FORMAT (°O*,3X,6A1, 7X, “SUNK *, 10X, 149) 
IF (PLATFM(PLT,20) .GT.0) WRITE (6,310) (NAME (PLT, J), J=1,6), 
ITEMP,PLATFM( (PLT, 3) 
316 FORMAT (°O*,3X,6A1,9X,11,12X, 14) 
COUNT=COUNT?T) 
IF (COUNT.LT.10) GO TO 313 
COUNT=0 
WRITE (6,311) 
31) FORMAT (*OMORE ON NEXT PAGE. TYPE Y(ES) TO CONTINUE. °) 
READ (S,201) G 
WRITE (6, 312) 
312 EOnMate es oik, FINAL ,/,5X%, SHIP’, 5X. “STATUS/HITS*, 5X. 
1‘LOCRTIGN‘) 
313 CONTINUE 
IF (C.GT.3) GO TO 3998 
IF (C.GT.2) GO TO 29 
IF (C.GT.1) GO TO 28 
27? IF (BLUSUB.E0.0) GO TQ 28 
A=P8SUB]1 
B=PBSUB2 
C=2 
GO TO 26 


Zoe 








851 28 WRITE (6,324) 
g5¢ 314 POonnag O'FrPe (ES) 7G SEE RED RESULTS. *) 


853 READ (S,201) G 

854 WRITE (6, 315) 

855 S1% FORMAT (°!REO RESULTS: *,//) 
856 WRITE (6 308) 

857 COUNT=90 

858 316 IF (REOSUR.EQ.0) GO TO 29 
859 A=PRSUR}I 

860 B=PRSUR2 

86} C23 

862 GO TO 26 

863 29 IF (REOSUB.EQ.0) GO TO 9998 
864 A=PRSUBI 

865 BaPRSUB2 

866 C=y 

867 GO TO 26 


868 9998 WRITE (6,317) 
869 31? FORMAT (‘OTYPE Y(ES) TO RETURN TO MENU SELECTION AND START A NEW", 


870 17, sGAHE= TYPE N(G) 10 EXIT THE GAME. *) 
871 READ (5,200) INPUT 

872 CALL INVRT! (INPUT,A) 

a3 IF (A,EQ.ALPHA(1)}) GO TO 1 


874 99399 WRITE (6,318) 

875 Sie FORMAT (°OEXITING THE GAME. °*) 
876 STOP 

877 END 
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ey 
e5 
26 
27 
28 
2g 
30 
31 
32 
a3 
34 
35 
36 
37 
38 
39 
40 
Q) 
Ye 
U3 
WY 
45 
46 
4? 
48 
49 
50 


e393 


100 
200 


300 


400 
500 


600 


700 


SUBROUTINE STATUS (PASWRO, ERROR, NAMERP) 
THIS SUBROUTINE IS THE ORIVER FOR ALL DISPLAY ROUTINES. 


IMPLICIT INTEGER (A-2Z) 

DIMENSION PASWARD (6) , INPUT (70) , ALPHA (2) , NAMEWP (29, 6) 

COMMON FLATFM(100, 37) ,OETECT (100,4) , WEP (29, 3) ,HIT (100, 3) , SUNK (100) 
1, WATER (.00) ,NAME (100,6) , BUFFER (100, 8) , BLUPAS (6) ,REOPAS (6) , 
2I PLAT, JHIR, ISUAF, 1SUB,AOV,POV,AEV,PEV, ERATIC, BLUAIR, REDAIR, BLUSUR, 
3REOSUR, bLUSUB, REOSUB, PBAIR1,PBAIR2, PRAIRI,PRAIR2,PBSURI,PBSURe, 
YPRSUR!,PRSUR2, PBSUB1, PBSUBe, PRSUB!, PRSUBe 

DATA ALPHA/*T*, ‘N*/ 

A=0 

ERROR=0 

D6 100 121,6 

IF (PASWARDO (1) .NE.BLUPAS(1)) A=] 

IF (ALEQ.1) GO TO 200 

CONTINUE 

IF (A.EQ.1) GO TO 300 

ACI=1 

AC2=BLUAIR 

SUR1=PBSUR} 

SUR2=PBSURe 

SUB1=PBSUB} 

SUB2=PBSUBe 

AC=BLUAIA 

SUR=BLUSUR 

SUB=BLUSUB 

SIDE! 

GG TO 800 

A=0 

060 400 1=1,6 

IF (PASWRO (1) .NE.REOPAS (1)) A=] 

IF (ALEQ.1) GO TO 500 

CONTINUE 

IF (ALEQ.1) GO TO 600 

AC1=PRAIRA1 

AC2=PRAITR2 

SUR1=PRSUR} 

SUR2=PRSURC 

SUB1=PRSUB1 

SUB2=PRSUB2 

AC=REDAIR 

SUR=REOSUR 

SUB=REOSUB 

SIDE=e2 

GO TO 800 

ERROR! 

WRITE (6, 700) 

FORMAT (‘OYOU HAVE MADE AN ERROR IN THE ENTRY OF YOUR PASSWORD. *) 
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51 
52 
53 
S54 
2S 
56 
a7 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
33 
74 
aS 
76 
i? 
78 
79 
80 
81 
62 
83 
BY 
B5 
86 
87 
88 
89 
30 
91 
92 


GO TO 9999 
800 WRITE (6,821) 
B21 FORMAT (‘1 THE FOLLGWING OISPLAY GPTIGNS ARE AVAILABLE TO YGuU:'‘, 
1///,° 1. OETELTIONS OF ENEMY PLATFGRMS. ‘, 
1//,° 2. RESULTS OF WEAPONS FIREO. °, 
1//.* 3. DAMAGE TO FRIENOLY PLATFORMS. °, 
1//,° 4. STATUS OF FRIENDLY PLATFORMS AND INPUT OF INSTRUCTIONS. ‘, 
1//,° 5. BEGIN NEXT GAME TURN. ‘) 
1000 WRITE (6,824) 
B2u FORMHT(///, ° SELECT AND ENTER THE NUMBER GF A DISPLAY OPTIGN.*, 
1/,° ENTER A 6 FOR A LIST OF DISPLAY OPTIONS. °) 
READ 5,822) INPUT 
822 FORME IT (70A1) 
CHLL WONVRT CINPUT,A) 
If (A.E8.6) GO TS 800 
1F (A.EQ.1.0R.A8.£FQ.2.0R.A8.£Q0.3.0R.8.£0.4.0R.A.EQ.5) GO TO 830 
WHITE (6,823) 
823 FORMAT (*OTQU HAVE MAQE AN ERRGAR IN YOUR INPUT SELECTION. TRY AGA] 
INS) 
Go T6 1000 
830 If (@.GT.1) GO TG 2 
CLL OETXT (AC1,AC?,SUR1., SUR2, SUB! , SUB2, NAMEWP) 
Gi TG 1000 
2 It (A.GT.2) GO TO 3 
CLL SHOTRE (AC1,AC2?,SUR!,SUR2,SUB1,SUB2, NAMEWP,AC, SUR. SUB) 
G11 TO 1000 
3 IF (A.GT.3)} GO TO 4 
CHLL OAMRE (SUR1, SUR2, SUB!, SUB2, SUR, SUB) 
G60 TG 1000 
y IF (A.GT.4) GO TS 5 
CHLL STATIN (AC1,AC2?,SUR1,SUR2,5UB1, SUB2, NAMEWP) 
G3 TG 1000 
5 WHITE (6,831) 
83] FORMAT (°OTHIS GPTION WILL BEGIN THE NEXT GAME TURN. TYPE YIES)*, 
1/,° IF YOU HAVE ENTEREO ALL YOUR COMBAT, MOVE ANO SEARCH “‘, 
1/.* INSTRUCTIGNS ANDO YOU ARE READY TG COMMENCE PLAY. TYPE NiO)°, 
1/,° TG RETURN TO OISPLAY SELECTION. *) 
Re AQ(S,822) INPUT 
CALL INVRT1 (INPUT, B) 
Ir (B.NE. ALPHA (1)) GOGO TO 1000 
9999 RiiTURN 
Eno 
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SUBROUTINE OETXT (ACI, AC)?], SUR], SUR2, SUB], SUB2, NAMENWP) 
THIS SUBROUTINE DISPLAYS THE OETECTIONS OF THE CALLING FORCE. 


IMPLICIT INTEGER (A-Z) 

COMMON PLATFM(100,37) ,OETECT (100.4) , WEP (29,3) .HIT (100, 33 , SUNK (100) 
1, WATEt (100) , NAME (100,6) , BUFFER (100, 8) , BLUPAS (6) ,REOPAS (6), 
21PLAT, IAIR, ISURF,1SUB,ADV,POV.AEV,PEV,ERATIC, BLUAIR, REDAIR, BLUSUR, 
3REDSUA, BLUSUB, REOSUB, PBAIRA1,PBAIRe2,PRAIR1,PRAI Re, P8SUR], PBSURe, 
YPRSUR),PRSURe, PBSUB1, PBSUB2, PRSUB1, PRSUB2 

DIMENSC [ON ALPHA! (2,5), ALPHA? (2,4) ,NAMEWP (29, 6) 

ShMmencinhze oe  SUnewnh BM, AC’, AR’, °E *,°IN*,* °,°E °/ 

GhlinmHemtinevurH ss hE oo, Th , CIV. *VE*,°E *,° *7 

COUNT=0 

WRITE (6,1) 

FORMAT (°1°,14X, “SONOR', 7X, "SHIP*,/,2X, “OETECTING'. UX, "TYPE*, 8X, 
1°TYPE’,/,2X, ‘PLATFORM‘,5X, ‘USED’, 6X, ‘OETECTEO*, 3X, "LGCATION’,/) 

OO 6 PLT=1,100 

O1=OETECT (PLT, 1) 

D2=OETECT (PLT, 2) 

Pras Seo) Ge 1053999 

IF ((01.GE.AC1.ANO.01.LE.AC2]) .OR. (01.GE.SUR1.ANO.01.LE. SUR) .6R. 
1(01.GE.SUB1.AND.01.LE.Su82)) GO TO 2 

GO 10 6 

WRITE (6,3) (NAME (01, J5),J=1,6), (ALPHA2 (OETECT (PLT.3)+1,5),421,4), 
] (ALPHA (PLATFM (02,B),J),J=1,5) ,PLATFM (02, 3) 

FORMAT (* *,3X,6A1,5X,4A2,3X,5A2, 3X, 14) 

COUNT=COUNT*} 

IF (COUNT.LT.19) GO TO 6 

COUNT=0 

WRITE (6,4) 

FORMAT (°OMORE OETECTIONS ON NEXT PAGE. TYPE Y(ES) TO CONTINUE. *) 

REAO(S,S) C 

FORMAT (Al) 

WRITE (6,1) 

CONTINUE 

WHITE (6, 7) 

FORMAT (°OENO OF DETECTION ROUTINE. TYPE Y(ES) TO CONTINUE. *) 

READ (5,5) C 

RETURN 

ENO 
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SUBROUTINE SHOTRE (ACI, AC2], SURI, SUR2, SUB1,SUB2,NAMEWP,AC, SUR, SUB) 


THIS SUBROUTINE OISPLATS THE RESULTS OF WEAPONS FIRED BY THE 
CALLING FORCE. 


IMPLICIT INTEGER (A-2Z) 
REAL R 


COMMON PLATFM(100,37) ,OETECT (100.4) ,WEP (29, 3) ,HIT (100, 3) , SUNK (100) 


1, WATER (100) , NAME (100, 6) , BUFFER (100, 8) , BLUPAS (6) , REDPAS (6), 


2IPLAT, IAIR, ISURF, 1SUB, ADV, POV, AEV,PEV,ERATIC, BLUAIA, REDAIR, BLUSUR, 


3REQOSUR BLUSUB,REDSUB,PBAIRI,PBAIR2,PRAIRI,PRAIR2,PBSUR!,PBSURe, 
YPRSUR!, PRSUR2, PBSUB1], PBSUBe, PRSUB!, PRSUB2 

DIMENSJON ALPHA? (2, 7) ,NAMEWP (29, 6) 

DAR Wee No TO", O°, NA°, “ET”, “F1°, ‘ON’, ’ON’, “AT”. ” 
eli een ae N 7 

IF (HHC.EQ.0) GO TO 20 

WRITE (bo . 1) 

FORMAT (*1*) 

COUNT=0 

00 10 PLT=AC1,AC2]) 

IF CCPLATFM(PLT, 23) .EQ.0) . ANDO. (PLATFMI(PLT,24) .E€Q.0)) GO TO 10 


WRITE (6,4) (NAME (PLT, J), J=1,6)., (NAME (PLATFM(PLT,21),4),J=1,6) ,PLAT 


LEMAR ET 2) 

FORMAT (7/7, ° AIRCRAFT - °,6A1,5X. *PRRENT SHIP - °,6A1,5X, 
1*COMBAT LOCATION - *, 14) 

00 7 WP=!,.2 

RESULT=PLATFM (PLT, WPt2e) 

LP taeSuUET-EO20) GG 10) 7 

ReRESULT/6. 


IF (RESULT.GE.1.AND.RESULT.LE.6) WRITE (6,5) WP, (NAMEWP (PLATFMI(PLT.W 


1P+16),J).J=#1,6) A 
FORMAT (* WEAPON °,11,3X., °TYPE - °,6A2,5X, ‘PROB(HIT) /OETONATION - 
1,F6.4) 


IF (RESULT.GT.6) WRITE (6,6) WP, (NAMEWP (PLATFM (PLT, WP+16) ,J),J=1,6), 


1 (ALPHA! ((RESULT-6), J), Jat. 7) 

FORMAT (* WEAPON °,11,3X,°TYPE - °,6A2,5X, "PROB(HIT) /DETONATION - 
1, 7Re) 

CONTINUE 

COUNT=COUNT +1 

IF (COUNT.LT.5) GO TO 10 

WRITE (6,8) 

FORMAT (‘OMORE ON NEXT PAGE. TYPE Y(ES) TO CONTINUE. °) 
READS, 3) G 

FORMAT (At) 

COUNT=0 

CONTINUE 

WRITE (6,12) 

FORMAT(//,° TYPE YI(&S) FOR SHIP RESULTS. °3 

READ(S,9) G 

WRITE (6,1) 
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31 
Se 
23 
SY 
55 
56 
a7 
38 
39 
60 
6! 
62 
63 
64 
65 
66 
6? 
68 
69 
70 
aa 
Te 
C3 
74 
75 
76 
aa 
78 
79 
80 
81 
82 
83 
84 
85 
86 
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VY 


15 


18 


3999 
17 


COUNT=0 

IF (SUR.EQ.0) GO TO 18 

A=SURI 

B=SURe2 

C=] 

DO 16 PLT=A,B 

IF ((PLATFMIPLT, 35) .€0.0) . AND. (PLATFM (PLT, 36) .£Q. 0) . AND. 
1 (PLATFM (PLT, 37) .£0.0)) GO TO 16 

WRITE (6,14) (NAME (PLT, J), J=1,6) ,PLATFM (PLT, 2) 

FORMAT (//,° SHIP - *,6A1,5X, ‘COMBAT LOCATION - *,14) 
DO 15 WIr=1,3 

RESULT=PLATFM (PLT, HP*34) 

IF (RESULT.EQ.0) GO TO 15 

R=RESUL 1/6. 

IF (RESUL T.GE.1.ANO.RESULT.LE.6) WRITE (6,5) WP, 
1 (NAMEWP IPLATEM (PLT, WP*20) , 3), 4=1,6) .R 

IF (RESUI T.GT.6) WRITE (6,6) WP, (NAMENWP (PLATFM (PLT, WP*20), J). J=1,6), 
1 (ALPHA! ( (RESULT-6), J), J=1, 7) 

CONTINUE 

COUNT=CQUNT* 1 

IF (COUNT.LT.4) GO TO 16 

WRITE (6, 8) 

READ(5,9) G 

COUNT=0 

CONTINUE 

IF (C.GT.1) GG TO 9999 

IF (SUB.EQ.0) GO TO 9999 

Cx2 

A=SuB1 

B=SuB2 

GO To 13 

WRITE (6,17) 

FORMAT (*UEND OF WEAPON RESULT OISPLAY. TYPE Y(ES) TO CONTINUE. *) 
READ (5,9) G 

RETURN 

END 
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SUBROUTINE DAMRE (SUR1, SUR2, SUB1, SUB2, SUR, SUB) 
THIS SUBROUTINE DISPLAYS DAMAGE SUFFERED BY THE CALLING FORCE 


IMPLICIT INTEGER (A-2) 

COMMON PLATFM (100,37) ,DETECT (100.4) , WEP (29, 3) HIT (100, 3) , SUNK (100) 
1, WATER (100) ,. NAME (100, 6) ,BUFFER (100, 8) , BLUPAS (6) , REDPAS (6) , 
2IPLAT, IAIR, ISURF, 1SUB, ADV, POV, AEV,PEV, ERATIC, BLUAIR, REDAIR, BLUSUR, 
3REOSUR, BLUSUB, REOSUB, PBAIR1, PBAIR2, PRAIR1,PRAIR2, PBSUR1],PBSURe, 
UPRSUR1, PRSUR2, PBSUB1, PBSUB2, PRSUB!, PRSUB2 

WRITE (6, 13 

FORMAT (°1°,5X, “SHIP*, 5X, "STATUS/HITS”) 

COUNT=0 

IF (SUR.EQ.0) GO TO 9 

A=SURI 

B=SURe2 

C=] 

00 7 PLT=A,B 

IF (PLATFM (PLT, 20) .E0.03 WRITE (6,3) (NAME (PLT, J}, J=1, 6) 

FORMAT (°0°,4X,6A1, 7X, “SUNK *) 

TEMPs-PLATFM (PLT,11) 

IF (PLATFM(PLT,20) .GT.0) WRITE (6,4) (NAME (PLT, J3},J=1,6), TEMP 

FORMAT (°0°,4X,6A1,9X,11) 

COUNT=COUNT*1 

IF (COUNT.LT.10) GO TO 7 

COUNT=0 

WRITE (6,5) 

FORMAT (°OMORE ON NEXT PAGE. TYPE Y(ES) TO CONTINUE. ”) 

READ(S,5&) G 

FORMAT (Al) 

WRITE (6,1) 

CONTINUE 

IF (C.GT.1) GO TO 9999 

IF (SUB.£0.0) GO TO 9999 

C22 

A=SUB1 

B=SUB2 

GO 10 2 

WRITE (6, 8) 

FORMAT (°OEND GF DAMAGE DISPLAY ROUTINE. TYPE Y(ES) TO CONTINUE. ”) 

READ(S,6) G 

RETURN 

END 
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SUBROUTINE STATIN(AC!, AC2?], SUR], SUR2, SUB!1,SUB2, NAMENWP) 


DISPLAYS INDIVIOUAL PLATFORM STATUS OF COMBAT ACTIONS, MOVEMENT 
AND SEARCH RESULTS. ACCEPTS COMBAT, MOVEMENT AND SEARCH 
COMMANDS. ALL INPUT IS PUT INTO A BUFFER AND GVERLATED AT 
GAME TURN EXECUTION 


IMPLICIT INTEGER (A-Z) 

COMMON PLATFM (100,37) ,DETECT (100.4) , WEP (29, 3) ,HIT (100, 3) , SUNK (100) 
1,WATER (10D) ,NAME (100, 6) , BUFFER (100, 8) , BLUPAS (6) , REDPAS (6) ,- 
2]PLAT, IAIR, ISURF,1SUB,ADV,POV,AEV,.PEV, ERATIC, BLUAIR, REDAIR, BLUSUR, 
3REDSUR, BLUSUB, REDSUB, PBAIRI,PBAIR2, PRAIR!,PRAIR2,PBSUR1,PBSUR2, 
YPRSURI],PRSUR2, PBSUB1, PBSUB2, PRSUB1, PRSUBe 

DIMENSION INPUT (70), INAME (6) ,.NAMEWP (29,6) ,EXIT (6) 

BATA NG/°N*/ 

WRITE (6, 10D) 

FORMAT (//* YOU HAVE SELECTED INDIVIDUAL PLATFORM STATUS DISPLAY’, 
1° ANO ASSOCIATED’/* COMBAT,MOVEMENT AND SEARCH COMMAND INPUTS. */ 
2°’ ENTER THE NAME OF THE DESIRED PLATFORM. °//) 

REAC (5,101) INPUT 

FORMAT (70A1) 

CALL INVRT6 (INPUT, INAME) 

CALL NAMEIN(CINAME, INDEX,NAME.AC],AC2,5UR1, SUR2, SUBI, SUB2) 

IF (INDEX.NE.0160 TO 20 

WRITE (6, 1B2) 

FORMAT(* YOU HAVE ENTERED AN INCORRECT PLATFORM NAME. ‘/TS, *REENTER 
V*///) 

GO 70 10 

TEST 20 

IF (INDEX.GE.AC].AND.INDEX.LE.AC2) CALL STATAC (TEST, INDEX, INAME, 
INAMEWP) 

IF CUINDEX.GE.SUR1. AND. INDEX.LE.SUR2) .OR. (INDEX.GE.SUB1.AND. INDEX. 
ILE.SUBe} CALL STATSS(TEST, INDEX, INAME,NAMENP) 

IF (TEST. EQ. 0) WRITE (6, 103) 

FORMAT (* TOU CAN ONLY OBTAIN STATUS AND INPUT COMMANDS ‘/ 
1° FOR PLATFORMS UNOER YOUR CONTROL. *) 

WRITE (6,104) 

FORMAT (//* ENTER YCES) TO CONTINUE WITH ANOTHER PLATFORM */ 
1° ENTER N(O} TO RETURN TO DISPLAY SELECTION’) 

READ (6,101) INPUT 

CALL INVRT1 CINPUT,ATEST) 

IF (ATEST.EQ.NQ) RETURN 

WRITE (6,106) 

FORMAT (//* ENTER THE NAME OF THE DESIRED PLATFORM'/7/) 

G6 TO 10 

END 
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SUBROUTINE STATAC (USED, INOEX, INAME, NAMEWP) 


AIRCRAFT STATUS ANO COMMANO INPUT SUBROUTINE 


IMPLICIT INTEGER (A-Z) 

COMMON PLATFM (100,37) , DETECT (100,4) ,WEP (29,3) ,HIT (100, 3) , SUNK (100) 
1,WATER (100) ,NAME (100,6) , BUFFER (100, 8) , BLUPAS (6) , REOPAS (6) , 
2IPLAT, IAIR, ISURF, 1SUB, AOV, POV, AEV, PEV,ERATIC, BLUAIR, REOAIR, BLUSUR, 
3REOSUR, BLUSUB, REOSUB, PBAIR1, PBAIR2, PRAIR1,PRAIRe, PBSUR1,PBSURe, 
YPRSUR1,PRSUR2, PBSUB1, PBSUBe, PRSUB1, PRSUBe 

DIMENSION INAME (6) ,NAMEWP (29,6) , INPUT (70) , WEPON (6) 

DATA NONE/*N*/ 

USED=1 

IF (PLATFM (INOEX, 11) .EQ.0} WRITE (6,100) INAME 

FORMAT (//1X,6A1,° 15 CURRENTLY NOT FLYING - IT IS ASSUMEO YOU*/ 

1° DESIRE TO LAUNCH. *) 

IF (PLATFM (INDEX, 11) .£0.0)G60 TO 35 


STATUS DISPLAYS 


WRITE (6,101) INAME,PLAT-M{(INOEX, 3) ,PLATFM (INOEX, 4): 

FORMAT (//1X,6A1, * IS LICATEO AT POSITION’, 15,* AT SPEED’, 13) 

IF (PLATFM(INOEX, 23) .E0.0.ANO.PLATFM (INDEX, 24) .E0.0)G60 TO 10 
X=23 

IF (PLATFM (INDEX, 23) .EQ.0) X=2y 

WRITE (6,102) (NAMEWP (PLATFM (INOEX, X-6) , 5), J=1,6) ,PLATFM (INOEX, 2) 
FORMAT(* IT RELEASED A *,6Ae2,* AT A SUBMARINE TARGET LOCATEO*/ 
1° AT POSITION’, I5/* THE WEAPON") 

IF (PLATFM (INDEX, X) .LE.6) WRITE (6, 103) PLATFM (INOEX, X) 

FORMAT{(* OETONATEO WITH PROBABILITY OF A HIT OF*,!2, 
1* OUT OF 6°) 

IF (PLATFM{INOEX, X) .EQ. 7) WRITE (6, 109) 

FORMAT (713, “DETONATED {HIT) °) 

IF (PLATFM(INOEX,X) .EQ.8) WRITE (6, 105) 

FORMAT (T13, ‘O10 NOT OETONATE *) 

IF (PLATFM(INOEX, 7) .EQ.0) WRITE (6, 106) 

FORMAT{* IT WAS NOT ASSIGNEO A SEARCH MISSION *) 

IF (PLATFM (I NOEX, 7).£0.0)G0 TO 30 

IF (PLATFM(INDEX,4) .GT.O) WRITE (6,107) INAME 

FORMAT (1X,6A1,° COULO NOT EXECUTE A SEARCH MISSION AS ITS SPEED*/ 
1° WAS GREATER THAN ZERO*) 

IF (PLATFM{(INDEX,4).GT.0)G0 TO 30 

IF (PLATFM (INOEX, 7).EQ.1) WRITE (6, 108) 

FORMAT (* IT CONOUCTEO AN ACTIVE SEARCH WITH FOLLOWING RESULTS*/ 
1° SUBMARINE CONTACT LOCATION RANGE *) 

IF (PLATFM (INDEX, 7) .EQ.2) WRITE (6, 109) 
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32 
»3 
SY 
55 
36 
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58 
53 
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61 
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63 
64 
65 
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7) 
Te 
73 
74 
7) 
76 
ad 
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83 
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85 
86 
87 
88 
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93 
Sy 
a5 
96 
9? 
98 
Jo 
100 


10S FORMAT (* 17 CONDUCTED A PASSIVE SEARCH WITH FOLLGWING RESULTS */ 

1° SUBMARINE CONTACT LOCATION RANGE“) 

X=0 

DG 20 1=1,100 

PETOETE CIO) .c 1.0160 10 2) 

IF (DITECT (1,1) .NE. INDEX) GO TG 20 

X=] 

WRITE (6,110) PLATFM (DETECT (1,2) ,3) ,DETECT (1,4) 
110 FORMAT (713,148,731, 14) 
20 CONTINUE 
21 If (X.€Q.0) WRITE (6,111) 
111 FORMAT (15, ‘THERE WERE NO DETECTIONS‘) 

WRITE (6.127) (NAME (INDEX, J), J=1, 6) 
te? FORMAT (1X,6A1, * WEAPON SYSTEM(S) */TS, ‘TYPE '.1715, ‘RANGE *) 

WRITE (6,128) (NAMEWP (PLATFM CINDEX,17),J).J=1,6) ,WEP (PLATFMI(INDEX, 

Lie 2) 
128 POnMAiGss 1 == 1, 0nc, 13) 

]F (PLATFM CINDEX, 18) .€Q.0)60 TO 30 

WRITE (6,129) (NAMEWP (PLATFM (INDEX, 18) .J).J=1,6) ,WEP (PLATFM (INDEX, 

118) ,2) 


129 FORMAT(* 2 *,6A2,13) 

c 

¢ 

£ COMMAND INPUTS 

g 

ie 

30 WRITE (6,112) 

112 FORMAT {//* NO COMBAT ENTER N (ONE) GTHERRISE ENTER‘/ 
1° TARGET LOCATIGN*/* WEAPGN SYSTEM NUMBER IN THIS FASHI@N'//) 

C 

C 

C 

C COMBAT 

c 

C 


READ (5, 113) INPUT 
13 FORMAT (70A1) 
CALL INVRT! (INPUT, TEST) 
IF (TEST.EQ.NONE) GO TO 40 
CALL NONVRT (INPUT, BUFFER (INDEX, 2)) 
READ (5,113) INPUT 
CALL NONVRT (INPUT, BUFFER (INDEX, 1)) 
GO TO 4O 


C 
C 
G LAUNCH AIRCRAFT 
C 
c 
3 


5 WRITE (6,114) INAME 
114 FORMAT (//1X,6A1,° 15 NOW BEING LAUNCHED *//) 
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101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
11 
Ile 
113 
114 
115 
116 
11? 
118 
1139 
120 
121 
lee 
123 
1eu 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
Ie 
143 
ay 
145 
146 
147 
148 
149 
150 


NAnnan 


oO 


PS 


NOON nNnNnnm 


116 


vVInmOnnnn 


11? 


118 


NOnNnNnn 


PLATFM (INDEX, 11) 23 


MOVEMENT 


WRITE (6,115) 

FORMAT (* MOVEMENT NOT DESIRED ENTER N(ONE) OTHERWISE ENTER */ 
1° SPEED*/* DESTINATION HEX IN THIS FASHION ‘//) 

READ (5,113) INPUT 

CALL INVRT! (INPUT, TEST) 

IF (TEST. EQ. NONE) BUFFER (1,4) sPLATFM(I, 3) 

IF (TEST.EQ.NGNE) GO TO 50 

CALL NONVAT (INPUT, BUFFER (INDEX, 3) ) 

READ (5,133) INPUT 

CALL NONVAT (INPUT, BUFFER (INDEX,4) ) 


TEST FOR GOING RIGHT DISTANCE AND NOT EXCEEDING MAX SPEED 


CALL OISTAN (BUFFER CINDEX,4) ,PLATFM(INOEX,3) ,O1ST) 

IF (01ST. LE. BUFFER (INDEX, 3) .ANO. BUFFER (INDEX, 3) .LE.PLATFM (INDEX, 12) 
1)G6 TO SO 

WRITE (6,116) 

FORMAT (* YOU HAVE EITHER SET A SPEED HIGHER THAN MAX‘/* OR ATTEMP 
1TEO TO GO FURTHER THAN SET SPEED") 

GO 70 40 


SEARCH 


WRITE (6,117) 

FORMAT (/* ENTER SEARCH MISSIONS AS FOLLOWS: ‘/T7,°O0 NONE SCHEOULED 
1°/7T7,°3 ACTIVE MISSION’/T?, ‘2 PASSIVE MISSION‘//) 

READ (5,113) INPUT 

CALL NONVAT CINPUT, X) 

IF (X.GT.0.ANO. BUFFER (INDEX, 3) .GT.O) WRITE (6,118) 

FORMAT(° A SEARCH MISSION CANNOT BE PERFORMED WHILE THIS PLATFORM* 
1/° 1S MOVING (NOT HOVERING OR LOITERING). *‘/) 

IF (X.GT.0.ANO. BUFFER (INDEX, 3) .GT.0)G0 TO SO 

BUFFER (INDEX, 5) =X 


COMMAND STATUS/INPUT COMPLETION 


WRITE (6,119) 
FORMAT(’ YOU HAVE ENTEREO THE FOLLOWING COMMANDS ‘/* COMBAT: *) 
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ay 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
16e 
163 
164 
165 
166 
167 
168 


120 


Vel 


lee 


123 


124 


125 


126 


IF (BUFFER CINDEX, 1) .EQ.0) WRITE (6,120) 

FORMAT(* NONE SCHEDULED") 

IF (BUFFER CINDEX, !).GT.0) WAITE (6,121) (NAMEWP (PLATFM (INDEX, BUFFER CIN 
IDEX,1) +16), J), J=1,6) , BUFFER (INOEX, 2) 

FORMAT (1X,6A2, * WEAPON TGT LOCATION’, 15) 

IF (BUFFER (INDEX, 3) .EQ.0) WRITE (6,122) PLATFM (INDEX, 3) 

FORMAT (* SPEED 1S ZERO AF LOCATION *,14) 

IF (BUFFER (INOEX, 3) .GT.O) WRITE (6, 123) BUFFER (INDEX,4) , BUFFER (INDEX, 
13) 

FORMAT DESTINATION .15,° SPEEO*, 13) 

IF (BUFFER (INDEX,S) .EQ.0) WRITE (6,124) 

FORMAT (* THERE 15 NO SEARCH MISSION SCHEDULED ‘/) 

IF (BUFFER (INDEX.5) .€Q. 1) WRITE (6,125) 

FORMAT (* AN ACTIVE SEARCH MISSION WILL BE CONODUCTED*/) 

IF (BUFFER (}NOEX, 5) .EQ.2) WRITE (6,126) 

FORMAT (* A PASSIVE SEARCH MISSION WILL BE CONDUCTED*/) 

RETUAN 

ENO 
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on Mmuw& why = 


SUBROUTINE STATSS (USE, INDEX, INAME, NAMEWP) 


DISFLAYS INDIVIOQUAL SUFACE SHIP/SUBMARINE STATUS OF COMBAT 
ACTIONS, MOVEMENT AND SEARCH RESULTS. ACCEPTS COMBAT 
MOVEMENT AND SEARCH COMMANDS. ALL INPUT IS PLACED IN 
A BUFFER AND GVERLAYED AT GAME TURN EXECUTION 


Ooornranonnnona 


IMPLICIT INTEGER (A-2Z) 

COMMON PLATFM (100,37) ,DETECT (100,44) ,WEP (29, 3) ,HIT (100, 3) , SUNK (100) 
1,WATER (100) ,NAME (100,6) , BUFFER (100, 8) , BLUPAS (6) ,REDPAS (6), 
2I1PLAT.IAIR, ISURF,1SUB, ADV, POV, AEV, PEV. ERATIC, BLUAIR, REDAIR, BLUSUR, 
3REOSUR, BLUSUB, REDSUB, PBAIR1, PBAIR2, PRAIR1, PRAIR2, PB8SURI,PBSURe, 
UPRSUR1,PRSUR2, PBSUB1, PBSUB2, PRSUB1, PRSUB2 

DIMENSION INAME (6) ,NAMEWP (29,6) , INPUT (70) 

DATA NONE/‘*N*/ 

YSED=1] 


STATUS DISPLAYS 


mOnannna 


WRITE (6,100) INAME, PLATFM (INDEX, 3) ,PLATFM (INDEX,4) 

100 FORMAT (///1X,6A1,° IS LOCATED AT POSITIGON',1I5,* SPEED‘, 12) 
TEMPa-FLATFM (INDEX, 11) 
IF (PLATFH (INDEX, 11) .LT.0) WRITE (6,99) PLATFM (INDEX, 12) , TEMP 

89 FORMAT (//T10, ‘NOTE‘/* OUE TO PREVIGUS AND/OR CURRENT DAMAGE SUFFER 
1E0, MAX SPEED 195 NOW‘,12/° THE SHIP HAS BEEN HIT‘, 12,° TIMES‘//) 


PLATFORM HIT LAST GAME TURN? 


Onna 


06 10 i=1,100 
Petit tb 1.0) GO) Td 11 
IF (tHIT1i1,1) .NE.INDEX)GO TO 10 
IF (WEP (HIT (1,2), 3) .NE.3) WRITE (6,101) 
101 FORMAT (° IT HAS BEEN HIT BY A NON-TORPEOO WEAPON") 
IF (WEP (HIT (1,2) ,3) .£Q.3) WRITE (6, 102) 
102 FORMAT(* IT HAS BEEN HIT BY A TORPEDO’) 
10 CONTINUE 


COMBHT ACTION RESULTS 


W— OH moan 


1 IF (PLATE M (INDEX,1).£Q.0)G0 TO 30 
WRITE (6, 103) INAME, PLATFM (INDEX, 2) 
103 FORMAT (/TS, ‘THE *,6A1,* ATTACK ON TARGET LOCATED AT*,15S/) 
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3] 
32 
33 
34 
35 
36 
37 
38 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
45 
76 
7? 


79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
Qy 
95 
96 
97 
98 
99 
100 


DG 20 1#35,37 

IF (PLATFM (INDEX, 1).EQ@.0)GG TO 20 

WRITE (6,204) (NAMEWP (PLATFM (INDEX, 1-14) ,J),J=1,6) 
104 FORMAT(* RELEASE OF ‘*,6A2,* RESULTED IN‘) 

IF (PLATFM (INDEX, 1).LE.6) WRITE (6, 105) PLATFM CINDEX, 1) 
105 FORMAT (* A DETONATION WITH PROBABILITY'/* GF A HIT OF °, 

111, ° GUT OF 6°/) 

IF (PLATFM (INDEX, 1) .EQ. 7) WRITE (6, 106) 
106 FORMAT (* A DETGNATIGN(HIT) °/) 

IF (PLATFM (INDEX, 1) .EQ.8) WRITE (6, 107) 
107 FORMAT(* NO DETONATION - NO DISTURBED WATER MARKER ‘/) 
20 CONT INUE 


c SEARCH MISSION STATUS 


30 IF (PLATFM (INDEX, 7) .EQ.0) WRITE (6, 108) 
108 FORMAT(* IT WAS NOT ASSIGNED A SEARCH MISSION‘) 

IF (PLATFM (INDEX, 7).EQ.0)G6 TO 50 

WRITE (6, 109) 
109 FORMAT (* IT WAS ASSIGNED THE FOLLOWING SEARCH MISSION(S) *) 

IF (PLATFM (INDEX, 7) .EQ.1) WRITE (6,110) 
110 FORMAT(* ACTIVE’) 

IF (PLATFM (INDEX, 7) .EQ.2) WRITE (6,111) 
11] FORMAT (* PASSIVE‘) 

IF (PLATFM (INDEX, 7) .EQ. 3) WRITE (6, 112) 
lle FORMAT (* ACTIVE AND PASSIVE *) 

WRITE (6,113) 
113 FORMAT (* TYPE LOCATION METHOD RANGE *) 

X=0 

DO 4O J=1,100 

IF (DETECT (1,1).LT.0)GO TO 41 

IF (DETECT (1,1).NE.JNDEX) GO TO 4O 

X=] 

IF (PLATFM (DETECT (1,2) ,8).EQ.1.AND.OETECT (1,3) ,EQ.Q0) WRITE (6,1141) 

IPLATFMI(DETECT (1,2),3),DETECT (1,4) 
Lid)  FORMAT(* SURFACE *,5X,14,5X, “PASSIVE *, 16) 

IF (PLATFM (DETECT (1,2) ,8) .EQ.2.AND.OETECT (1,3) .£EQ.0) WRITE (6, 1142) 

IPLATFM (DETECT (1,2) ,3) , DETECT (1,4) 
1142 FORMAT(* SUBMARINE*,3X,14¥,5X, ‘PASSIVE *, 16) 

IF (PLATFM (DETECT (1,2) ,8) .EQ.1.AND.DETECT (1,3) .EQ.1) WRITE (6,1151) 

IPLATFM (DETECT (1,2) ,3) ,DETECT (1,4) 
1151 FORMAT(* SURFACE *,5X,14,5X, ‘ACTIVE’, 17) 

IF (PLATFM (DETECT (1,2) ,8) .EQ.2.AND.DETECT (1,3) .EQ. 1) WRITE (6, 1152) 

IPLATFM(DETECT (1,2) ,3) ,DETECT (1,4) 
1152 FORMAT(* SUBMARINE *,3X,14,5X, ‘ACTIVE’, 17) 
40 CONTINUE 
41 IF (X.EQ. 0) WRITE (6,116) 
116 FORMAT (* THERE WERE NO DETECTIONS‘) 
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124 
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135 


118 


119 


60 


120 


WIOoOnononrndan 


et 


IF SUNK - SKIP COMMAND INPUTS 


IF (PLATFMCINDEX, 20) .EQ.0) WRITE (6,117) INAME 

FORMAT (//° SINCE THE *,6A1,* HAS BEEN SUNK, NG COMMAND INPUTS‘, 
1° CAN BE ACCEPTED') 

IF (PLATFM (INDEX, 20) .EQ.0) RETURN 

WRITE (6,134) (NAME (INDEX, J), Ja1,6) 

FORMAT (1X,6A1, * WEAPON SYSTEM(S) ‘/TS, ‘TYPE’, T15, "RANGE "3 

00 $1 1=1,3 

l1=#1+20 

IF (PLATFMCINOEX,11).EQ.0)G0 TQ $2 

WRITE (6,135) 1, (NHMEWP (PLATFM (INDEX, 11) ,J),J=1,6) , WEP (PLATFM (INDEX, 
$11),2) 

FORMAT (12, 2X, 6A2, 13) 

CONTINUE 


COMMAND INPUTS 


WRITE (6,118) 

FORMAT (//* NO COMBAT ENTER N(QNE) - OTHERWISE ENTER‘/* TARGET LOCA 
ITIOQN'/”’ WEAPON SYSTEM NUMBER IN THIS FASHIGN‘//) 

READ (5,119) INPUT 

FORMAT (70A1) 

CALL INVRT1 (INPUT, TEST) 

IF (TEST. EQ.NONE) GO TO 70 

CALL NONVRT (INPUT, BUFFER (INDEX, 2) } 

READ (5,119) INPUT 

CALL NONVRT (INPUT, WEPON) 

BUFFER (INDEX, 1) =1 

BUFFER (INDEX, WEPON+t5S) =-1 

WRITE (6, 120) 

FORMAT (* TO EMPLOY ANOTHER WEAPON SYSTEM, ENTER THE SYSTEM NUMBER’ 
1/” OTHERWISE ENTER N(O) ‘//) 

AEAD (5,119) INPUT 

CALL INVRT1 (INPUT, TEST) 

IF (TEST. EQ.NGNE) GO TO 70D 

GO TO 60 


MOVEMENT COMMANDS 


WRITE (6,121) 
FORPAT(//’ TQ SCHEQULE MOVEMENT ENTER‘/’ SPEED’/” DESTINATION 
1 IN THAT ORDER, OTHERWISE ENTER N(ONE) °//) 


ALS: 





be 1 
oc 
13 
154 
155 
156 
15? 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
taal 
172 
173 
174 
aS 
176 
177 
178 
no 
180 
181 
182 
183 
184 
185 
186 
7 
188 
189 
190 
19] 
192 
193 
194 
195 
196 
nS? 
198 
199 
200 


oOonoannann 


lee 


© 02 Gf om 


123 


124 


NynNOnNAnAM 


125 


126 


ye? 
90 


READ (5,119) INPUT 

CALL INVRT1 (INPUT, TEST) 

IF (TEST.EQ. NONE) BUFFER (INDEX,N) =PLATFM (INDEX, 3) 
IF (TEST.EQ.NONE} GO TO 80 

CALL NONVRT tINPUT, BUFFER (INDEX, 3)) 

READ (5,119) INPUT 

CALL NONVAT (INPUT, BUFFER (INDEX, 4)) 


TEST FOR GOING RIGHT OJSTANCE AND NOT EXCEEDING MAX SPEEDO 


CALL OISTAN (BUFFER (INDEX,4),PLATFMtINOEX, 3) ,OIST) 

IF (DIST.LE. BUFFER (INOEX, 3) .ANO. BUFFER (INDEX, 3) .LE.PLATFM (INDEX, 12) 
1)}G0 TO 80 

WRITE (6, 122) 

FORMAT(* YOU HAVE EITHER SET A SPEEO HIGHER THAN MAX CAPABLE OR AT 
ITEMPTEO’/* TO GO FURTHER THAN THE SPEEO SETTING WILL ALLOW) 

GO TO 70 


SEARCH COMMANDS 


WRITE (6, 123) 

FORMAT (//* ENTER SEARCH MISSIONS AS FOLLOWS: */T7,°O NONE SCHEOULE 
1D°/T7,°1 ACTIVE MISSION'/T?, °2 PASSIVE MISSION'/T?,°*3 ACTIVE AN 
20 PASSIVE *//) 

READ (5,119) INPUT 

CALL NONVAT (INPUT, X) 

IF (X.£0.3.AND.PLATFM(CINOEX,C4) .NE.1) WRITE (6,124) 

FORMAT (* AN ACTIVE ANDO PASSIVE SEARCH MISSION CANNOT BE PERFORMED 
1 SIMULTANEOUSLY*/* BY THIS PLATFORM") 

IF (x. £Q.3.ANO.PLATFMCINDEX, 24) .NE.1)60 TO 80 

BUFFER (INOEX,5) =X 


STATUS/COMMAND INPUT COMPLETION 


WRITE (6,125) 

FORMAT (/* YOU HAVE ENTEREO THE FOLLOWING COMMANDOS */* COMBAT: °) 
IF (BUFFER (INOEX, 1) .EQ.0) WRITE (6, 126) 

FORMAT (710, "NONE SCHEOQULEO') 

]F (BUFFER CINOEX,1).£0.0)G60 TO 91 

00 90 1=6,8 

IF (BUFFER (CINOEX, 1).GE.1)G0 TO 90 

WRITE (6,127) (NAMEWP (PLATFM (1NOEX, 1415) ,3),J=1,6) , BUFFER (INOEX, 2) 
FORMAT (T10,6A2,* WEAPON TGT LOCATION’, 15) 

CONTINUE 


219 





201 91 IF (BUFFER (INDEX, 3) .EQ.0) WRITE (6,128) PLATFM (INDEX, 3) 


202 128 BORMAI Il” SrFeEEO ZEAS LOCATION’, 15) 

203 IF (BUFFER (INDEX, 3) .GT.O) WRITE (6,129) BUFFER (INDEX, 4) . BUFFER (INDEX, 3 
204 1} 

205 129 FORMAT (* DESTINATION ‘, 14, ° SPEEO= 12) 
206 X=sBUFFER (INOEX, 5) 

207 IF (X.EQ.0) WRITE 16, 120) 

208 130 FORMAT ¢€* NO SEARCH MISSION") 

209 IF (X.EQ.1) WRITE (6,131) 

210 131 FORMAT (* ACTIVE SEARCH MISSION*) 

eit 1Rx Euler WRITE (65 1 Se) 

ele 132 FORMAT t* PASSIVE SERRCH MISSION‘) 

213 IF (X.EQ.3) WRITE (6,133) 

214 E33 FORMAT(* ACTIVE AND PASSIVE SEARCH MISSION’) 
BAS RE TUAN 

216 END 
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SUBROUTINE CONTAL 
THIS SUBROUTINE EXECUTES A GAME TURN OF COMBAT,MOVE AND SEARCH 


IMPLICIT INTEGER (A-H,P-Z) 

COMMON PLATFM(100, 37) ,DETECT (100,4) , WEP (29, 3) ,HIT (100, 3) , SUNK (100) 
1,WATER (100) , NAME (100, 6) , BUFFER (100, 8) , BLUPAS (63 ,REDPAS (6), 
21PLAT, IAIR, ISURF,1SUB, ADV, POV, REV,PEV,ERATIC, BLUAIR, REDAIR, BLUSUR, 
3REDSUR, BLUSUB, REDSUB, PBAIR1, PBAIR2, PRAIR1,PRAIR2,PBSURI,PBSUR2, 
UPRSUR1,PRSUR2, PBSUB1, PBSUB2, PRSUB1, PRSUB2 


WORKING MATRIX INITIALIZATION 


00 10 121,100 
WATER (1) =-1 
HIT(1,1) 2-1 
CONTINUE 

00 20 I=1,]PLAT 
PLATFM(1,1) =0 
PLATFM (1,6) 20 
CONTINUE 

IF C(1AIR.EQ.0)1G0 TO 21 
08 21 J]21,1AIR 
PLATFM (1,23) =0 
PLATFM (1, 24%) =0 
CONTINUE 
J#lIAIR+1 

06 22 1=J,1PLAT 
PLATFM (1,35) =0 
PLATFM(1], 36) =0 
PLATFM(1,37) =0 
CONTINUE 


MOVES NONFLYING AIRCRAFT WITH MOTHER SHIP 


IF (JAIR.EQ0.0)G60 TO ey 

06 28 l=*1,]AIR 

IF (PLATFM (1,11) .€Q0.1)G60 TO 24y 
BUFFER (1,4) =BUFFER (PLATFM(1,21),4) 
CONTINUE 


OVERLAY BUFFER INTO PLATFM 


Zee 








$1 
52 
53 
SY 
55 
96 
ay 
38 
$9 
60 
61 
6e 
63 
64 
65 
66 
67 
68 
69 
70 
71 
we 
73 
V4 
nS 
76 
ad 
78 
79 
80 
8! 
82 
83 
8Y 
85 
66 
87 
88 
6&9 
$0 
91 
92 
a3 
94 
a5 
96 
a7 
98 
ao 
100 
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4¥O 
50 


60 
70 
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00 eS J=1, 1PLAT 
PLATFM(I, 1) sBUFFER(I, 1) 
PLATFH(T, 2) =BUFFER(I,2) 

PLATFH(1,4) =BUFFER(I, 3} 
PLATFM (1,5) =BUFFER(I,4) 
PLATFM(1, 7) «BUFFER (I,S) 
lel Ce TARP GO 16 25 

PLATFM (1.21) =PLATFM(1,21) «BUFFER (1, 6) 
PLATFM (1,22) =PLATFM (1,22) xBUFFER (I, 7) 
PLATFM(1,23) =PLATFM(1,23) BUFFER (I, 8) 
CONTINUE 


COMBAT ANDO MOVE EXECUTION 


CALL COMBAT 
CALL MOVE 


INITIALIZATION OF DETECT MATRIX 


00 30 1=1,100 
DETECT (I, 1} =-1 
CONTINUE 


PLACE OISTURBEO WATER MARKERS IN PLATFORM MATRIX 


NUM=0 

06 40 1=1,100 

IF (WATER (I) .LT.1)60 TO SO 

NUM=NUM+ 1 

CONTINUE 

IF (NUM.EQ.0)G0 TO 80 

OO 706 141,JPLAT 

IF (PLATFM (1,6) .EQ.3.0R.PLATFM(1,20) .€0.0)G0 TO 70 
D0 60 J=1,NUM 

CALL ODISTAN(PLATFM(1,3) . WATER (J) ,OIST) 
IF (DIST.LE. 1} PLATFM (1,6) =3 

CONTINUE 

CONTINUE 


EXECUTE SEARCH PHASE 


ee 
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100 


CALL SEARCH 


INITIALIZATION OF INPUT COMMANDO BUFFER 


DO 100 [=1,IPLAT 
BUFFER (!,1) =O 
BUFFER (1,2) <0 
BUFFER(1,3)=0 _ 
BUFFER (1,4) =PLATFM (I, 3) 
BUFFER (1,5) =0 
BUFFER (1,6) ©] 
BUFFER (1, 7) =] 
BUFFER (1,8) =1 
CONTINUE 

RE TURN 

ENO 
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SUBROUTINE COMBAT 


THIS SUBROUTINE ACTIVATES THE MASTER COMBAT PHASE 
AND CONTROLS ALL COMBAT RELATEO SUBROUTINES 


PHPEYENT INTEGER (A-n, P-Z) 

COMMON PLATFMt100,37) ,OETECT (100,48) ,WEP (29,3) ,HIT (100, 3) , SUNK (100) 
IWATER (100) , NAME (100, 6), BUFFER (100, 8) , BLUPAS (6) , REDPAS (6) 
2IPLAT, IAIR, ISURF, 1SUB.AOV,POV,AEV,PEV,ERATIC, BLUAIR, REDAIR, BLUSUR, 
3REOSUR, BLUSUB, REOSUB, PBAIR1, PBAIR2, PRAIR1, PRAIR2, PBSURI1.PBSUR2, 
YPRSUA1,PRSUR2, PBSUB1, PBSUBe, PRSUB1, PRSUB2 

DO 30 ATIK=1,1PLAT 

IF (PLATFMIATTK, 20) .£0.0)G0 TO 30 

IF (PLATFM(ATTK, 1) .E0.0)G0 TO 30 

IF (PLATFM(ATTK,8) .NE.0) G0 TO 10 


CONTROLS AIRCRAFT WEAPON EMPLOYMENT 


WEPIND=16+*PLATFM(ATTK, 1) 

WEPSUP2IN*PLATFM(ATTIK, 1) 

CALL FIRE (ATTK, WEPIND,WEPSUP, IHIT, 1TAR,PRHIT) 
X=PLATFM(ATTK, WEP IND) 

IF (X.LT.4Y.OR.X.GT.19) PLATFM (ATTK, WEPINO*6) s=PRHIT 

IF (X.GE.4.ANO.X.LE.19.ANO. JHIT.EQ. 1) PLATFMCATTIK, WEPINO*6) =? 
1F (X.GE.4Y.ANO.X.LE.19.ANOD. IHIT.EQ.0) PLATFM (ATTK, WEPINO*6) =8 
IF C1HIT.EQ.1) CALL FILHIT (ATTK,PLATFM(CATTIK, WEPIND) , ITAR) 

G6 TO 30 


CONTROLS SURFACE ANO SUBSURFACE WEAPON EMPLOYMENT 


00 20 WEPIND=21,23 

IF (PLATFM(ATTK,WEPINO).GE.0)GO TO 20 

PLATFM (ATTK, WEPINO) =-PLATFM(ATTK, WEPIND) 

WEPSUP=WEPINO-6 

CALL FIRE (ATTK,WEPINO,WEPSUP, IHIT, 1TAR, PRHIT) 

X=PLATFM{(ATIK, WEPINO) 

IF (X.LT.4.0R.X.G7T.19) PLATFMCATTK, REPINO*14) =PRHIT 

IF (X.GE.Y.AND.X.LE.19. AND. IHIT.EQ.1) PLATFMCATTK,REPINO*14) =? 
IF (X.GE.4.AND.X.LE.19.AND.IHIT.EQ.0) PLATFM (ATTK,WEPIND*14) 28 
IF GQAHIT.EQ. 1) CALL FILHIT (ATTK, PLATFMCATTK, WEPINO). I TAR) 
CONTINUE 

CONTINUE 
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33 DO sO }=1,100 


COMBAT EXECUTION OVER - DAMAGE ASSESSMENT PHASE 


lf ste 0) Ge 10 50 


CALL DAMREC (HIT (1,1)) 
40 CONTINUE 
WRITE (6, 200) 


200 FORMAT (* THERE WERE GREATER THAN 100 HITS >100 HITS NOT FILED’) 


C 

C 

E COMPRESS OISTURBED WATER MATRIX 

8 

E 

c 

50 1=0 

60 J=]+] 
IF (WATER C(I} .LT.0}GG TO 100 
J=] 

70 J=J*} 


IF (WATER (J) .LT.0)G0 TO 60 


80 IF (WATER (1) .NE.WATER(J)1}G0 TG 70 


D8 90 K=Jj,100 


IF (WATER (K} .LT.0}G60 TO 80 


WATER (K} =WATER (K*1) 
90 CONTINUE 
JF (1.GE.100)G0 TO 100 
GO 10 60 
100 RETURN 
END 
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SUBROUTINE FIRE (ATTK,REPINO.WPLEFT, JHIT, ITAR, PRHIT) 


THIS SUBROUTINE CONDUCTS ALL FIRINGS, CALCULATES 
PROBABILITY OF HIT, ORAWS A RANDOM NUMBER AND 
DETERMINES HIT OR MISS 


IMPLICIT INTEGER (A-Z) 
REAL RN 7 
COMMON PLATFM (100,37) ,DETECT (100,4) ,WEP (29, 3) ,MIT (100, 3) , SUNK (100) 


1,WATER (100) ,NAME (100,6) ,BUFFER(!00,8), BLUPAS (6) ,REOPAS (6), 

2IPLAT. IAIR, ISURF,1SUB,ADV,POV,AEV,PEV,ERATIC, BLUAIR, REDAIR, BLUSUR, 
3REOSUR, BLUSUB, REOSUB, PBAIA!, PBAIR2, PRAIR!I,PRAIR2,PBSUR!.PBSUR2, 
UPRSUR!,PASUR2, PBSUB!, PBSUBe, PRSUB!., PRSUBe 


DATA ISLE0/55555/ 
THI T=0 
1F (PLATFM(ATTK,WPLEFT).LE.0)GO TO 30 


CHECK IF COMBAT LOCATION IS A TARGET PLATFORM 


PLATFM(ATTK,WPLEFT) =PLATFM(ATTK, WPLEFPT) -! 
ITAR=0 

00 :0 INDEX=!,IPLAT 

IF (PLATFM (INDEX, 20) .£0.0)G60 10 10 

IF (PLATFM(ATTK,2) .EQ.PLATFM(INOEX, 3)) ITAR=INDEX 
CONTINUE 

IF (ITAR.EQ@.0)60 TO 30 


PLACE DISTURBED WATER MARKER AT TGT LOCATION 
IF WEAPON 15 NOT A TORPEDO 


If (WEP (WEPINO,3).€0.3)60 TO 14 
CALL DISTURIPLATFM(ITAR,5S)) 


CHECK IF TARGET PREVIOUSLY OETECTED 


Y=0 

OO fs 121,100 

TRUOETECT CIT. 1). LT. 0) S60 10 16 

IF (DETECT (1,1) .EQ.ATTK. AND. DETECT (1,2) .EQ.1TAR) Y=1 
CONTINUE 

If (Y.£0.0)G0 TO 30 
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CtiCh JF PROPER WEAPON AGAINST PARTICULAR TARGET 


T=]AIR+ ISURF 

IF (PLATFMCATTK, Wit IND) .LE.2.AND.ITAR.GT.1¥)GO TO 30 
IF (PLATFIMIATTA,WEPIND) .GE.1S.ANO.ITAR.LE.1IGOB TQ 30 
PEthT ino Ce.y. ANG. 1TAR.GT.¥)GO 10 20 

IF (ATTK.GT.Y.ANO.JTAR.GT.IAIRIGO TO 20 

RETURN 


COMPUTE RANGE OF WEAPON AGAINST TARGET RANGE 
COMPUTE PROB OF HIT AND DRAW RANDOM NR 
DETERMINE HIT OR MISS 


CALL DISTAN (PLATFM(ATTK,2) ,PLATFMLATTK, 3) .D1ST) 
CALL RANGE (PLATFM(ATTK,WEPINO) , ACC, RANG) 

IF (O1ST.GT.RANG) GO TG 4YO 

PRH] T=ACC-PLATFM (1 TAR, 19) 

1F (ACC. EQ. 3) PRHIT=1 

CALL RANOOM CISEEO,RN, ?) 

IRN=6.*RANT1. 

IF CCPRHIT-IRN)..GE.0O) JHIT=!1 


IF WEAPON IS A TGRPEOG AND A HIT PLACE DISTURBED 
WATER MARKER AT TGT LOCATION 


IF (WEP (WEPINO, 3) .£E0.3.ANO.1THIT.EQ.1) CALL DISTUR (PLATFM(ITAR, 5) ) 
RETURN 

WRITE (6, 300) (NAME (ATTK, J), J=1,6) 

FORMAT (* THE ATTACK BY °,6A!1,° FAILED AS TGT RANGE > WEAPON RANGE * 


i) 


RETURN 
ENO 
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SUBROUTINE DISTUR (LOCAT) 


PLACES DISTURBED WATER MARKERS AT TARGET SITES 


IMPLICIT INTEGER (A-H,P-Z) 

COMMON PLATFM (100,37) ,OETECT (100,4%) ,WEP (29, 3) ,HIT (100, 3) , SUNK (100) 
1,WATER ()0O) ,NAME (100,6) , BUFFER (100, 8) , BLUPAS (6) ,REOPAS (6), 
2I1PLAT, 1H1R, ISURF, 1SUB,AOV,POV,REV, PEV,ERATIC, BLUAIR, REDAIR, BLUSUR, 
3REOSUR, BLUSUB, REOSUB, PBAIR1,PBAIR2, PRAIR!, PRAIR2, PBSUR!,PBSuRe, 
YPRSURI,PRSUR2, PBSUB1, PBSUB2,. PRSUB!, PRSUB2 

00 10 1-1,190 

IF (WATEI (1) .LT.0)60 TO 20 

CONTINUE 

WRITE (6,100) LOCAT 

FORMAT (* OIMENSTIGNING OF WATER EXCEEDED-LOCATION',15,°* NOT FILED’) 
RE TURN 

WATER (1) =LOCAT 

RETURN 

END 
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SUBROUTINE RANGE (]1NDEX, ACC, RANG) 


RETRIEVES ACCURACY ANDO RANGE INFORMATION 
FOR SPECIFIC WEAPON EMPLOYMENT 


IMPLICIT INTEGER (A-2) 

COMMON PLATFM (100,37) ,DETECT (100,4) ,WEP (29,3) ,HIT (100, 3) , SUNK (100) 
1, WATER (100)3 ,NAME (100,6) , BUFFER (100,83 , BLUPAS (6) , REOPAS (6), 
2IPLAT, IAIR, ISURF,1SUB,ADV, POV, AEV,PEV,ERATIC, BLUAIR, REDAIR, BLUSUR, 
3REDSUR, BLUSUB, REOSUB, PBAIR1,PBAIRe, PRAIRI,PRAIR2,PBSUR1,PBSUR2, 
YPRSUR1, PRSUR2, P8SUB1, PBSUB2, PRSUB1, PRSUBe 

ACC=WEP (INDEX, 1) 

RANG=WEP tINDEX, 2) 

RETURN 

END 
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SUBROUTINE FILHIT (ATTK,WEPON, I TAR) 


FILES ALL HITS ON SHIPS AS THEY OCCUR 


IMPLICIT INTEGER (A-2) 

COMMON PLATFM(100,37) ,.DETECT (100,4) , WEP (29,3) ,HIT (100, 3). SUNK (100) 
1,WATER (100) , NAME (100, 6) , BUFFER (100, 8), BLUPAS (6) , REDPAS (6), 
21PLAT, IAIR, ISURF,1SUB,ADV,POV,AEV,PEV.ERATIC, BLUAIR, REOAIR, BLUSUR, 
3REOSUR, BLUSUB, REOSUB, PBAIR1, PBAIRe, PRAIR1,PRAIR2, PBSUR!,PBSURe, 
YPRSUR1, PRSUR2, PBSUB1, PBSUBe, PRSUB!, PRSUBe 

DO 20 J=1,100 

IF (HIT (5,1) .L7T.0)60 TO 30 

CONTINUE 

WRITE (6,100) 

FORMAT (*! HIT DIMENSIONING EXCEEDED-HIT NOT FILED BUT RECORDED’) 
RETURN 

HiT tJ,1) <I TAR 

HIT (4,2) =WEPON 

HIT (J, 3) =ATTK 

RETURN 

END 
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SUBROUTINE DAMREC (1 TAR) 


UPDATES ALL DAMAGE PUTS SUNK SHIPS IN SUNK ARRAY 


IMPLICIT INTEGER {A-2Z) 

COMMON PLATFM(100,37) ,DETECT (100,4) , WEP (29, 3) ,HIT (100, 3) , SUNK (100) 
1,WATER (100) , NAME (100,6) , BUFFER (100, 6) , BLUPAS (6) ,REDPAS (6), 
2IPLAT, YAIR, ISURF,1SUB,ADV, POV,AEV,PEV,ERATIC, BLUAIR, REOAIR, BLUSUR, 
3REDSUR, BLUSUB, REOSUB, PBAIR1, PBAIRe, PRAIR1,PRAIReE,PBSUR],P8SURe, 
YPRSUR1,PRSUR2, PBSUB1, PBSUB2, PRSUB1, PRSUBe 


CAPABILITY REOUCTION FROM HIT 


DO 10 J#12,17 

PLATFM(ITAR, J) «PLATFM(ITAR, J) -1 

IF (PLATFMCITAR, J) .LT.0) PLATFMCITAR, J) =0 

CONTINUE 

PLATFMCITAR, 11) =PLATFMC(ITAR, 11) -1 

IF ((PLATFM (I TAR, 11) *PLATFMtITAR, 20)) .GT.0)GO TO 4O 
IF (PLATFM(ITAR, 20) .£0.0)G0 TO 4O 


PLACE SUNK SHIP IN SUNK MATRIX 


DO 20 J=},]PLAT 

IF (SUNK (J) .LT.0)G0 TO 30 

CONTINUE 

WRITE (6, 200) 

FORMAT (° SUNK DIMENSIONING EXCEEOED-RECORDED BUT NOT FILED’) 
RETURN 

SUNK (J) =I TAR 

PLATFM {SUNK (J) ,20) =0 

RETURN 

END 


Zk 








OI DW” £& WD — 


oOnnnann 


SUBROUTINE MOVE 


MOVES ALL PLATFORMS TO THEIR NEW LOCATIONS 
SUNK SHIPS ARE SKIPPEO 


IMPLICIT INTEGER (A-H,P-Z) 

COMMON PLATFM (100,37) ,DETECT (100, 4) , WEP (29, 3}, HIT (100, 3) , SUNK (100) 
1,WATER (1003 , NAME (100,6) , BUFFER (100, 8) ,BLUPAS (6) ,REDPAS (6), 
2IPLAT,IAIR, ISURF, 1SUB, ADV, POV, AEV,PEV, ERATIC, BLUAIR, REDAIR, BLUSUR, 
3REOSUR, BLUSUB, REOSUB, PBAIR1,PBAIR]S, PRAIA], PRAIR2, PBSUR1,PBSUR2, 
YPRSUR1, PRSUR2, PBSUB1,PBSUB2, PRSUB1, PRSUBe 

06 10 121, 1PLAT 

IF (PLATFM(1,20) .€0.0)60 TO 10 

PLATFM(],3) sPLATFM(1,5) 

CONTINUE 

RETURN 

ENO 
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SUBROUTINE SEARCH 


SEARCH IS THE MASTER SUBROUTINE FOR EVALUATING ALL SEARCH 
MISSIONS BY ALL PLATFORMS 


IMPLICIT INTEGER (A-H,P-Z) 

COMMON PLATFM (100,37) ,DETECT (100.4) , WEP (29,3) .HIT (100, 3) , SUNK (100) 
1,WATER (100) , NAME (100.6) , BUFFER (100, 8) ,.BLUPAS (6) ,REDPAS (6), 
2IPLAT, IAIR, ISURF, ISUB,AOV,POV,AEV,PEV,ERATIC, BLUAIR, REOAIR, BLUSUR, 
3REOSUR, BLUSUB, REOSUB, PBAIR1,PBAIRe, PRAIR1, PRAIR2, PBSUR1,PBSUR2, 
YPRSUR!, PRSURe, PBSUB1, PBSUBe, PRSUB1, PRSUBe 

ISURAI=1AIR+ ISURF 

ISHIP=ISURF+1SUB 


SURFACE AND AIR UNITS CONOUCTING ACTIVE MISSIONS 
AGAINST SUBSURFACE UNITS 


IF (ISURAI.EQ.0)G0 TO 4S 

00 20 #1, 1SURAI 

IF (PLATFM (1,7) .E0.0.0R.PLATFM(1, 7) .€0.2)G60 TO 20 
IF (PLATFM (1,20) .€0.0)G60 TO 20 
CALL ADVSUB (1) 

DO 10 J21,1SUB 

JJ=JeTAIR+ 1 SURF 

[PU eo.) Ge 10 10 

IF (PLATFM(JJ5,20) .£0.0)G0 TO 10 
CALL AEVSUB(I,JJ,DIST) 

IF (AOV.LT.AEVIGO TO 10 

GALL OETEK (1,J).1,D0151) 
CONTINUE 

CONTINUE 


SURFACE ANO AIR UNITS CONDUCTING A PASSIVE MISSION 
AGAINST SUBSURFACE UNITS 


DO 40 121, ]SURAI 

IF (PLATFM(I, 7) .€Q.1.0R.PLATFM(I, 7) .E€Q.0)G0 TO 4O 
IF (PLATFM (1,20) .£Q.03G66 TO 4O 

CALL POVSUB (1) 

DO 30 J=1,1SUB 

JJe=eJ+IAIR+ I SURF 

IF (].€Q.J5jJ}G0 TO 30 

IF (PLATFM(JJ,20) .£0.0)G0 TO 30 
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CALL PEVSUB (I, JJ,015T) 
IF (POV.LT.PEV) GO TO 30 
CALL BOETERt J OL OrSsT) 
CONTINUE 
CONTINUE 


SUBSURFACE UNITS CONDUCTING AN ACTIVE MISSION 
AGAINST SURFACE ANO SUBSURFACE UNITS 


IF (1SUB.EQ.0)G60 TO BO 

00 60 121,15UB 

T]a1+]AIR+1 SURF 

IF (PLATFM (11,7) .EQ.0.0R.PLATFM(11,7) .£Q0.2)66 TO 60 
IF (PLATFM{11,20) .EQ.0)G0 TO 60 
CALL ADVSuUB (11) 

00 50 J=!,1SHIP 

JJeJ*ITAIR 

lf APP SEO234)60" 10 50 

IF (PLATFM{JJ,20) .£Q0.0)60 TO 50 
CALL AEVSUB (11,JJ,015ST) 

IF (AOV.LT.AEV) GO TO 50 

CALE DETEK (11, JJ,1,0157) 
CONTINUE i 
CONTINUE 


SUBSURFACE UNITS CONDUCTING A PASSIVE MISSION 
AGRINST SURFACE ANO SUBSURFACE UNITS 


00 80 I=1,1S5UB 

T]=1+]AIR+ 1 SURF 

IF (PLATFM (II, 7) .£EQ.1.0R.PLATFM(1I,7).—E0.0)G60 TO 80 
IF (PLATFM (11,20) .£Q0.0)G0 TO 80 
CALL POVSUB (11) 

00 70 J=1,1SHIP 

JJ=J*1AIR 

IF (IT.EQ.JJIGO TO 70 

IF (PLATFM(JJ,20) .£9.0)G0 TO 70 
CALL PEVSUB (11, JJ,O1ST) 

IF (POV.LT.PEV) GO TO 70 

CALL OETEK (11, Jj.0,0187) 
CONTINUE 

CONTINUE 

RETURN 

ENO 
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SUBROUTINE ADVSUB (1) 


THIS SUBROUTINE COMPUTES THE ACTIVE DETECTION 
VALUE (ADV) FOR ALL PLATFORMS WITH 
ACTIVE SEARCH MISSIONS 


IMPLICIT INTEGER (A-H,P-Z) 

COMMON PLATFM (100,37), DETECT (100,48) , WEP (29,3) ,HIT (100, 3), SUNK (100) 
1, WATER (100) ,NAME (100,6) , BUFFER (100, 8) , BLUPAS (6) , REDPAS (6), 
2lPLAT, IAIR, ISURF,1SUB,ADV, POV, AEV,PEV, ERATIC, BLUAIR, REDAIR, BLUSUR, 
3REOSUR, BLUSUB, REDSUB, PBAIR!, PBAIRe,PRAIRI, PRAIA2, PBSURI,PBSURe2, 
YPRSURI, PRSURe, PBSUB1, PBSUB2, PRSUB! , PRSUBe 

ADV=PLATFM (1,13) 

IF (PLATFM(!,8).EQ.0)G6 TO 10 

ADV=ADV+PLATFM (1,11) 

IF (PLATFM (1,4) .GE. 1) AODV=ADV-1 

IF (PLATFM (1,4) .GE. 3) ADV=ADV-1 

IF (ERATIC.EQ. 1) ADV=ADV-2 

ADV=ADV-PLATFM(1, 6) 

IF (ADV.LT.0) ADV=0 

RE TURN 

END 
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SUBROUTINE AEVSUB(I,J,OIST) 


THIS SUBROUTINE COMPUTES ACTIVE EVASION VALUES (AEY) 
FOR ALL SURFACE ANO SUBSURFACE UNITS TO COMPARE 
WITH ACTIVE MISSION PLATFOAMS’ ACTIVE DETECTION 
VALUE (ADV) 


IMPLICIT INTEGER (A-H,P-2)} 

REAL Y 

COMMON PLATFM(100,37) ,OETECT (100.4) ,.WEP (29,3) ,HIT (100, 3) , SUNK (100) 
1, WATER (100) , NAME (100,6) ,BUFFEA (100, 8) , BLUPAS (6) ,REDPAS (6), 
2IPLAT, IAIR, ISURF, 1SUB, ADV, POV, AEV.PEV,ERATIC,BLUAIR, REDAIR, BLUSUR, 
SREOSUA, BLUSUB, REOSUB, PBAIR! , PBAIR2, PRAIRI, PRAIR2, PBSUR!, P8SUR2, 
YPRSURI, PRSUR2, PBSUB!, PBSUB2, PRSUB!, PRSUB2 

CALL OLSTAN(PLATFM (1,3) ,PLATFM(J,3) ,OIST) 

Y2OIST 

AEV=1/3.+.99 

IF (AEV.EQ.0)} AEV=! 

AEV=AEV*PLATFM (J, 6) 

RETURN 

ENO 
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SUBROUTINE PDVSUB (J) 


THIS SUBROUTINE COMPUTES THE PASSIVE DETECTION 
VALUE (POV) FOR ALL PLATFORMS THAT HAVE 
PASSIVE SEARCH MISSIONS 


IMPLICIT INTEGER (A-H,P-Z) 

COMMON PLATFM(100,37) ,OETECT (100.4) , WEP (29, 3) HIT (100.3) , SUNK (100) 
1,WATER (100) .NAME (100.6) , BUFFER (100, 8) , BLUPAS (6) , REOPAS (6) . 
21PLAT.IAIR, ISURF,1SUB.ADV,POV,AEV,PEV,ERATIC, BLUAIR, REDAIR, BLUSUR, 
3REOSUR, BLUSUB, REOSUB,’’BAIR1, PBAIR2, PRAIA], PRAIR2, PBSUR!,PBSUR2, 
YPRSUR1,PRSUR2, PBSUB1, PBSUBe, PRSUB1, PRSUB2 

POV=PLATFM(1,14) 

IF (PLATFM (1,8) .£0.0)G60 TO 10 

POVsPDV+PLATFM (1,11) 

IF (PLATFM(1,25) .£Q@.1)G6 TO 10 

IF (PLATFM (1,4) .5E.1) POV=POV-1 

IF (PLATFM(1,4%) .GE.3) POV=POV-1 

IF (ERATIC.EQ. 1) POV=POV-2 

POV=POV-PLATFH (1,6) 

If (POV.LT.0) POV=0 

RETURN 

END 
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SUBROUTINE PEVSUB (1,4,01ST) 


THIS SUBROUTINE COMPUTES PASSIVE EVASION VALUES (PEV) 
FOR ALL SURFACE AND SUBSURFACE UNITS TO COMPARE 
WITH PASSIVE MISSION PLATFORMS’ PASSIVE DETECTION 
VALUE (POV) 


IMPLICIT INTEGER (A-H,P-Z) 

REAL Y 

COMMON PLATFM(100,37) ,DETECT (100,4) , WEP (29,3) ,HIT (100, 3) , SUNK (100) 
1,WATER (100) , NAME (100,6) . BUFFER (100, 8) , BLUPAS (6) ,REOPAS (6), 
2IPLAT, IAIR, 1SURF,1SUB,ADV, POV,AEV,PEV, ERATIC, BLUAIR, REOAIA, BLUSUA, 
3REOSUR, BLUSUB, REOSUB, PBAIR!,PBAIR2, PRAIRI,PRAIR2, PBSUR!], PBSUR2, 
YUPRSUR1, PRSUR2, PBSUB1,PBSUB2,PRSUBI, PRSUB2 

CALL DISTAN(PLATFMOEI, 3) ,PLATFM(J,3) ,O1ST) 

T=01ST 

PEV=1/10.+*.99 

IF (PEV.EQ.0) PEV=) 

PEV=PEV+PLATFM (J, 18) *PLATFM (J, 6) 

TF (PLATFM (J, 7) .EQ.1.0R.PLATFM (J, 7).E0.3) PEV=PEV-2 

IF (PLATFM(J,1) .GT.0) PEV=PEV-2 

IF (PEV.LT.0) PEV=0 

IF (PLATFM (5,4) .EQ.0.AND. (PLATFM(J,7) .EQ.0.0R.PLATFM(J5, 7) .EQ.2). 
1AND.PLATFM(J,1) .EQ.0) PEVa6& 

RE TURN 

END 
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SUBROUTINE DETEK(11,j,AP,0I15ST) 


THIS SUBROUTINE FILES ALL DETECTIONS 
IN OETECT MATRIX (SEARCHER, TARGET) 


IMPLICIT INTEGER (A-Z) 

COMMON PLATFM(!100.37) ,OETECT (100.4%) , WEP (29, 3) ,HIT (100, 3) , SUNK (100) 
1, WATER (100) , NAME (100.6) , BUFFER (100, 8B) ,BLUPAS (6) ,REOPAS(6), 
2IPLAT, JAIR, ISURF,1SUB,ADV,POV,AEV,PEV,ERATIC, BLUAIR, REDAIR, BLUSUR, 
3REOSURK, BLUSUB, REODSUB, PBAIR!I, PBAIR2, PRAIR!], PRAIR2, PBSUR!, PBSURe, 
YPRSUR!1, PASUR2, PBSUB!], PBSUB2, PRSUB!], PRSUB2 

00 10 121,100 

IF (DETECT (1,1) .EQ0.-1160 TO 20 

CONTINUE 

WRITE (6, 100) 

FORMAT (‘1:1 DETECT ARRAY HAS OVERFILLEO*') 

RETURN 

OETECT(I,1) =I] 

GETEC IU, el =3 

DETECT (1,3) =AP 

DETECT (1,4) =DIST 

RETURN 

ENO 
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SUBROUTINE NONVRT (INPUT, OUTPUT) 


THIS SUBROUTINE WILL TAKE A LIST OF NUMBERS IN CHARACTER FORMAT 
AND RETURN AN INTEGER NUMBER. IT WILL DISREGARD ANY LEADING 
BLANKS. 


IMPLICIT INTEGER (A-Z) 

DIMENSION NUMBER (10), X(70), JNPUT (70) 
CMH eNUMGEMa Os Fs, 2°. 3 . NH", °S*, “6*,°?7°*,. 8", 9° 
DATA BLANK/* *‘/ 

DATA BOT/*. ‘7 

GUTPUT=0 

DO 1 K=1, 70 

IF (1NPUT (K} .EQ.BLANK: GO TO 1 

1FNUM=K 

GO T0 2 

CONTINUE 

RETURN 

DO 3 LeK, 70 

IF (INPUT {(L) .NE. BLANK. AND. INPUT (L) .NE.00T) GO TO 3 
ILNUM=L-1 

GO TO 4 

CONTINUE 

1NUM=1LNUM-IFNUM*]1 

DO 6 1=1, 1NUM 

X(1) =O 

06 S Jj=1,10 

IF (INPUT (1*]FNUM-1)..E.NUMBER(J)) GO TO § 
X (1) eJ-] 

GO TO 6 

CONTINUE 

CON FINUE 

INLEX=1NUM 

DO ? Je], INUM 

OUI?UT <OUTPUT* (X (INDEX) » (10% (5-1) )) 
INGEX- INDEX-1 

CONTI! JE 

RETURN 

END 
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SUBROUTINE INVRT1 (INPUT, IPUT) 


THIS SUBROUTINE INSPECTS A LINE OF CHARACTERS AND RETURNS THE 
FIRST GNE DISREGARDING ANY LEADING BLANKS. 


IMPLICIT INTEGER (A-Z) 
DIMENSION INPUT (70) 

DATA BLANKS’ ‘/ 

DO 1 1=1,70 

IF (INPUT (1) .EQ.BLANK) GO TO 1 
LPUT=INPUT (1) 

GO TO 2 

CONTINUE 

RETURN 

END 

SUBROUTINE INYRT6 CINPUT, IPUT) 


THIS SUBROUTINE INSPECTS A LINE OF CARACTERS AND RETURNS THE 
FIRST SIX CHARACTERS DISREGARDING ANY LEADING BLANKS. 


IMPLICIT INTEGER (A-Z) 
DIMENSION INPUT (70), IPUT (6) 
DATA BLANK/* ‘/ 

DO 1 I=1, 70 

IF tINPUT (1) .EQ.BLANK) GO TO 1 
L=1-1 

DO 2 J=1, 6 

]PUT (J) = INPUT (L+J) 

CONT I NUE 

GO TO 3 

CONTINUE 

RETURN 

END 
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SUBROUTINE SCLASS (NAME, INDEX, NAMESH) 


THIS SUBROUTINE COMPARES NAME (8A2) TO THE NAMES IN THE ARRAY 
NAMESH AND RETURNS THE ROW INDEX OF THE NAME THAT MATCHES. 
IF THERE 1S NO MATCH, INDEX IS RETURNED = 6, 


IMPLICIT INTEGER (A-2Z) 

DIMENSION NAMESH (130,88), NAME (8) 
INDEX=0 

DO ! Is1,1°0 

IF (NHME (1) .NE.NAMESH(1,1)) GO TO } 
IF (NAME {2} .NE.NAMESH(1,2)) GO TO } 
TF (NAME (3) .NE.NAMESH(1,3)) GO TO } 
TF (NBME (43 .NE.SNAMESH(1,4)) GO TO 1 
INDE X=] 

GO 10 2 

CONTINUE 

RETURN 

END 

SUBRCUTINE NAMEIN (INPUT, INDEX, NAME,.AC!, ACY, SURI, SUR2, SUB}, SUB) 


THIS SUBROUTINE { OMPARES INPUT (6A1) TO THE NAMES IN THE ARRAY 
NAME AND RETURNS THE ROW INDEX OF THE NAME THAT MATCHES. 
If THERE 1S NO Mt TCH, INDEX IS RETURNED = OQ. 


'MPLICIT INTEGER (A-2) 

IIMENSION INPUT (ft) , NAME (100, 6) 

NDExX=0 

10 1 J=1,100 

IF CC1.GE.AC!. AND. 1.LE.AC?) . OR. (1.GE.SUR!.AND.1.LE.SUR2).OR. 


1(1].GE.SUB1.AND.1.LE.SUBe2)) GO TO 10 


GO 10 } 

IF (INPUT (1) .NE.Nf ME (1,1)) GO TO 
iF CINPUT (2) .NE.NF ME (1,2)) GO TO 
[F (INPUT (33 .NE.NI ME (1,3)) GO TO 
TF (JNPUT (4) .NEJNI ME (1,4).) GO TO 
TF (INPUT (5) .NE.NIFMECI,5)) GO TO 
IF (INPUT (6) .NE.Nf ME(1,6)) GO TO 
INDEX] 

60 18 e 

CONTINUE 

RETURN 

END 


— esl tlle 
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SUBROUTINE DISTAN (XX, 11,0) 


DETEf MINES HEX DISTANCE BETWEEN TWO COORDINATES 
IND RETURNS THAT DISTANCE 


IMPL:CIT INTEGER (A-2) 

DIMEr.sIOu X (2), 7 (2) 

ZERO oO 

GNE=: 

COL= 

ROW=. 

x (COI } =x </100 

X (AGW) =X <-xX (COL) «100 

Y (COL) =¥ £100 

Y (ROW) =Y.-Y (COL) »100 

D=9 

IF (xX (cOL: -¥ (COL) } 200, 300,400 

IF (X ROW) -Y (ROW) )} 210, 220, 230 

IF (MUO (x (COL) ,2) .£€0. ZERO) X (ROW) 2X (ROW) +1 
X (COL) =x (COL) +1 

GO TO 500 

D=D+y (COL) -X (COL) 

GO TO 600 

IF (MOD (x (COL) ,2) .EQ.0NE) X (ROW) =X (ROW) -1 
xX (COL) =X (COL) +1 

GO 76 500 

0=0+1AHS5 tX (ROW) -Y (ROW) ) 

GO T6 500 

IF (xX (HOW) -Y (ROW) 410,420,430 

1F (MGD (xX (COL) ,2)} .EQ. ZERO) X (ROW) =X (ROW) 71 
x (COL) =X (COL) -3 

GO TO 500 

0=0+7X (COL) -¥ (COL) 

GO T0 500 

IF (MOO (x (COL) ,2) .£€0.GNE) X (ROW) =X (ROW) -1 
X (COL) =X (COL) -1 

O<Q0r! 

IF ((X (ROW) -Y (ROW) ) .NE. ZERO) GO TO 100 

IF C(x (COL) -7 (COL) ) .NE.ZERO)GO TO 100 

RE TURN 

END 
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PROGRAM ACCESS 


The Up Scope fortran source code is residing on tape in 
the computer center tape library at the Naval Postgraduate 
School. The name of the tape is UPSCOP , as is the file- 
name. 

The following program will generate the Up Scope fortran 


Source code in card image format (2358 cards). 


1) //SNAKEPIT JOB (1445,0195,RY91,,,3000), ‘GRIGGS' , TIME=2 
This card is the standard NPS job card with two 

exceptions: ",,,3000" to override the punched card limit and 
"TIME=2" for more than 20 seconds of CPU time. 

2) // EXEC PGM=IEBPTPCH 

3) //SYSPRINT DD SYSOUT=A 

4) //SYSUT1 DD UNIT=3400-3, VOL=SER=UPSCOP,DISP=(OLD,KEEP), 

ep // LABEL=(1,SL,,1IN) ,DSN=UPSCOP 

ae /SivsUT2 DD SYSOUT=B 

W/ /2XSiN DD * 

8) PUNCH 


a) /* 
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